home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 23 / CU Amiga - Super CD-ROM 23 (June 1998).iso / CreatingGames / Utilities / Asm / AB3DIIsrc / source_4000 / CONTROLLOOP.s < prev    next >
Encoding:
Text File  |  1996-10-24  |  57.2 KB  |  3,007 lines
  1. ; Main control loop.
  2. ; This is the very outer loop of the program.
  3.  
  4. ; What needs to be done and when?
  5.  
  6. ; Black screen start.
  7. ; Load title music
  8. ; Load title screen
  9. ; Fade up title screen
  10. ; Select options
  11. ; Play game.
  12.  
  13. ; Playing the game involves allocating screen and
  14. ; level memory, loading the level, loading the
  15. ; samples, loading the wall graphics, playing the
  16. ; level, deallocating the screen memory....
  17.  
  18. ; Control part should therefore:
  19.  
  20. ; 1. Load Title Music
  21. ; 2. Load title screen
  22. ; 3. Fade up title screen.
  23. ; 4. Add 'loading' message
  24. ; 5. Load samples and walls
  25. ; 6: LOOP START
  26. ; 7. Option select screens
  27. ; 8. Free music mem, allocate level mem.
  28. ; 9. Load level
  29. ;10. Play level with options selected
  30. ;11. Reload title music
  31. ;12. Reload title screen
  32. ;13. goto 6
  33.  
  34. INTROTUNEADDR: dc.l 0
  35. INTROTUNENAME: dc.b 'ab3:sounds/abreed3d.med',0
  36.  even
  37. TITLESCRNADDR: dc.l 0
  38. TITLESCRNNAME: dc.b 'TKG1:includes/titlescrnraw1',0
  39.  even
  40. TITLESCRNNAME2: dc.b 'TKG2:includes/titlescrnraw1',0
  41.  even
  42. OPTSPRADDR: dc.l 0
  43. TITLESCRNPTR: dc.l 0
  44.  
  45.  
  46.  
  47. ProtValA: dc.l 0
  48. ProtValB: dc.l 0
  49. ProtValC: dc.l 0
  50. ProtValD: dc.l 0
  51. ProtValE: dc.l 0
  52. ProtValF: dc.l 0
  53. ProtValG: dc.l 0
  54. ProtValH: dc.l 0
  55. ProtValI: dc.l 0
  56. ProtValJ: dc.l 0
  57. ProtValK: dc.l 0
  58. ProtValL: dc.l 0
  59. ProtValM: dc.l 0
  60. ProtValN: dc.l 0
  61.  
  62. MASTERPLAYERONEHEALTH:
  63.   dc.w 0
  64.   dc.w 0
  65. MASTERPLAYERONEAMMO:
  66.  ds.w 20
  67.  
  68. MASTERPLAYERONESHIELD:
  69.  dc.w 0
  70.  dc.w 0
  71. MASTERPLAYERONEGUNS:
  72.  dcb.w 10,0
  73.  
  74. MASTERPLAYERTWOHEALTH:
  75.   dc.w 0
  76.   dc.w 0
  77. MASTERPLAYERTWOAMMO:
  78.  ds.w 20
  79.  
  80. MASTERPLAYERTWOSHIELD:
  81.  dc.w 0
  82.  dc.w 0
  83. MASTERPLAYERTWOGUNS:
  84.  dcb.w 10,0
  85.  
  86. KVALTOASC:
  87.         Dc.b    " `  "," 1  "," 2  "," 3  "
  88.         dc.b    " 4  "," 5  "," 6  "," 7  "
  89.         dc.b    " 8  "," 9  "
  90. ; 10
  91.         Dc.b    " 0  "," -  "," +  "," \  "
  92.         dc.b     '    ','    '," Q  "," W  "
  93.         dc.b    " E  "," R  "
  94. ; 20
  95.         Dc.b    " T  "," Y  "," U  "," I  "
  96.         dc.b    " O  "," P  "," [  "," ]  "
  97.         dc.b    '    ','KP1 '
  98. ; 30
  99.         Dc.b    'KP2 ','KP3 '," A  "," S  "
  100.         dc.b    " D  "," F  "," G  "," H  "
  101.         dc.b    " J  "," K  "
  102. ;40
  103.         Dc.b    " L  "," ;  "," #  ",'    '
  104.         dc.b    '    ','KP4 ','KP5 ','KP6 '
  105.         dc.b    '    '," Z  "
  106. ;50
  107.         Dc.b    " X  "," C  "," V  "," B  "
  108.         dc.b    " N  "," M  "," ,  "," .  "
  109.         dc.b     " /  ",'    '
  110. ;60
  111.         Dc.b    '    ','KP7 ','KP8 ','KP9 '
  112.         dc.b    'SPC ','<-- ','TAB ','ENT '
  113.         dc.b    'RTN ','ESC '
  114. ;70
  115.         Dc.b    'DEL ','    ','    ','    '
  116.         dc.b    'KP- ','    ','UCK ','DCK '
  117.         dc.b    'RCK ','LCK '
  118. ;80
  119.         Dc.b    'FK1 ','FK2 ','FK3 ','FK4 '
  120.         dc.b    'FK5 ','FK6 ','FK7 ','FK8 '
  121.         dc.b    'FK9 ','FK0 '
  122. ;90
  123.         Dc.b    'KP( ','KP) ','KP/ ','KP* '
  124.         dc.b    'KP+ ','HLP ','LSH ','RSH '
  125.         dc.b    'CPL ','CTL '
  126. ;100
  127.         Dc.b    'LAL ','RAL ','LAM ','RAM '
  128.         dc.b    '    ','    ','    ','    '
  129.         dc.b    '    ','    '
  130.         Dc.b    '    ','    ','    ','    '
  131.         dc.b    '    ','    ','    ','    '
  132.         dc.b    '    ','    '
  133.  
  134.  even
  135.  
  136. FINISHEDLEVEL: dc.w 0
  137.  
  138. _IntuitionBase: dc.l 0
  139. _GfxBase: dc.l 0
  140. MyScreen: dc.l 0
  141.  
  142. MyNewScreen    dc.w    0,0        left, top
  143.         dc.w    320,16        width, height
  144.         dc.w    1        depth
  145.         dc.b    0,1        pens
  146.         dc.w    0        viewmodes
  147.         dc.w    CUSTOMSCREEN+SCREENQUIET    type
  148.         dc.l    0        font
  149.         dc.l    0    title
  150.         dc.l    0        gadgets
  151.         dc.l    0        bitmap
  152.  
  153.  
  154. INTUITION_REV    equ    31        v1.1
  155. int_name    INTNAME
  156.  even
  157.  
  158. START:
  159.  
  160.  move.b #'n',mors  
  161.  
  162. ************************************88
  163. * TAKE OUT WHEN PLAYING MODULE AGAIN
  164. ********************************
  165. ProtChkBLev1:
  166.     PRSDF
  167.     PRSDE
  168. ************************************
  169.  
  170. ; move.l #PROTCALLENC,a0
  171. ; move.l #(ENDPROT-PROTCALLENC)/4-1,d1
  172. ; move.l #$75055345,d0
  173. ;codeitup:
  174. ; sub.l d0,(a0)+
  175. ; ror.l #1,d0
  176. ; dbra d1,codeitup
  177. ; rts
  178.  
  179. ProtChkCLev1:
  180.  PRSDA
  181.  
  182.  move.w #$7201,titleplanes
  183.  
  184.  move.l 4.w,a6
  185.  move.l #doslibname,a1
  186.  moveq #0,d0
  187.  jsr -552(a6)
  188.  move.l d0,doslib
  189.  
  190.     moveq    #INTUITION_REV,d0    version
  191.     lea    int_name(pc),a1
  192.     CALLEXEC OpenLibrary
  193.     tst.l    d0
  194. ;    beq    exit_false        if failed then quit
  195.     move.l    d0,_IntuitionBase    else save the pointer
  196.  
  197.     lea    MyNewScreen(pc),a0
  198.     
  199.     CALLINT    OpenScreen        open a screen
  200.     tst.l    d0
  201. ;    beq    exit_closeall        if failed the close both, exit
  202.     move.l    d0,MyScreen
  203.  
  204.     CALLINT RethinkDisplay
  205.  
  206.  move.l #LINKname,a0
  207.  jsr LOADAFILE
  208.  move.l d0,LINKFILE
  209.  
  210.  move.l #LEVELTEXTNAME,a0
  211.  jsr LOADAFILE
  212.  move.l d0,LEVELTEXT
  213.  
  214.  jsr stuff
  215.  
  216. ; move.l gfxbase,a6
  217. ; jsr _LVOOwnBlitter(a6)
  218.  
  219. ; move.l 4.w,a6
  220. ; lea BLITInt,a1
  221. ; moveq #6,d0
  222. ; jsr _LVOSetIntVector(a6)
  223. ; move.l d0,SYSTEMBLITINT
  224.  
  225. ; move.l doslib,a6
  226. ; move.l #LINKname,d1
  227. ; move.l #1005,d2
  228. ; jsr -30(a6)
  229. ; move.l d0,LLhandle
  230. ;
  231. ; move.l doslib,a6
  232. ; move.l d0,d1
  233. ; move.l #LINKSPACE,d2
  234. ; move.l #90000,d3
  235. ; jsr -42(a6)
  236. ;
  237. ; move.l doslib,a6
  238. ; move.l LLhandle,d1
  239. ; jsr -36(a6)
  240.  
  241.  
  242.  PRSDS
  243.  
  244.  jsr _InitLowLevel
  245.  
  246. ; jsr CLEARTITLEPAL
  247.  
  248. ProtChkDLev1:
  249.  PRSDT
  250.  
  251.  move.w #$20,$dff1dc
  252.  move.l #titlecop,$dff080
  253.  PRSDV
  254.  move.w #$87c0,$dff000+dmacon
  255.  move.w #$8020,$dff000+dmacon
  256. ProtChkMLev1:
  257.  move.w $dff006,d0
  258.  lea RVAL2-100(pc),a0
  259.  add.w d0,100(a0)
  260.  
  261. ; bsr GETTITLEMEM
  262. ProtChkELev1:
  263.  PRSDU
  264. ; bsr CLROPTSCRN
  265.  
  266. ; bsr SETUPTITLESCRN
  267.  
  268. ; jsr _InitPlayer
  269.  
  270. ; move.l #INTROTUNENAME,a0
  271. ; jsr _LoadModule
  272. ; move.l d0,INTROTUNEADDR
  273.  PRSDY
  274. ; move.l d0,a0
  275. ; jsr _InitModule
  276.  
  277. ; move.l INTROTUNEADDR,a0
  278. ; jsr _PlayModule
  279. ProtChkFLev1:
  280.  PRSDa
  281. ; move.l #TITLESCRNNAME,TITLESCRNPTR
  282. ; bsr LOADTITLESCRN2
  283.  
  284. ; FLASHER $0f0,$fff
  285.  
  286. ******************************
  287.  jsr mnu_copycredz
  288.  jsr mnu_setscreen
  289.  move.l a7,mnu_mainstack
  290.  jsr mnu_viewcredz
  291.  
  292.  jsr mnu_clearscreen
  293.  
  294.  WBSLOW
  295.  WBSLOW
  296.  
  297. ; move.l 4.w,a6
  298. ; move.l SYSTEMBLITINT,a1
  299. ; moveq #6,d0
  300. ; jsr _LVOSetIntVector(a6)
  301. ;
  302. ; move.l gfxbase,a6
  303. ; jsr _LVODisownBlitter(a6)
  304.  
  305.  move.w #$83f0,$dff096
  306.  
  307. ******************************
  308.  
  309.  
  310. **********************************************
  311.  jsr INITQUEUE
  312. **********************************************
  313.  
  314.  move.w #0,FADEVAL
  315.  move.w #31,FADEAMOUNT
  316.  bsr FADEUPTITLE
  317.  PRSDB
  318.  jsr LOAD_SFX
  319.  jsr LOADWALLS
  320.  jsr LOADFLOOR
  321.  jsr LOADOBS
  322.  PRSDZ
  323.  
  324.  
  325.  move.l #backpicname,a0
  326.  move.l #BackPicture,d0
  327.  move.l #0,d1
  328.  jsr QUEUEFILE
  329.  
  330. ; IFNE CD32VER
  331.  PRSDD
  332. ; ENDC
  333.  
  334. ; jsr _StopPlayer
  335.  PRSDW
  336.  PRSDX
  337. ; jsr _RemPlayer
  338.  
  339.  
  340. ***********************************************
  341.  jsr FLUSHQUEUE
  342. ***********************************************
  343.  
  344.  jsr PATCHSFX
  345.  
  346.  move.w #23,FADEAMOUNT
  347.  bsr FADEDOWNTITLE 
  348.  
  349. ; bsr ASKFORDISK
  350.  
  351.  IFNE CD32VER
  352.  move.l doslib,a6
  353.  move.l #115,d1
  354.  jsr -198(a6)
  355.  ENDC
  356.  
  357. ; move.l #newblag,$80
  358. ; trap #0
  359. ; bra JUMPPASTIT
  360. ; rts
  361. ;
  362. ;newblag:
  363.  
  364.  
  365. ProtChkGLev1:
  366. ; bsr PROTSETUP
  367.  bsr DEFAULTGAME
  368.  
  369. ; move.l INTROTUNEADDR,a0
  370. ; jsr _UnLoadModule
  371.  
  372. ; IFEQ CD32VER
  373. ; jsr KInt_Init
  374. ; ENDC
  375. ProtChkHLev1:
  376. ; rte
  377. ;
  378. ;JUMPPASTIT:
  379. ; 
  380.  
  381. ; jsr mnu_GETBLITINT
  382.  jsr mnu_setscreen
  383.  
  384.  jsr mnu_protection
  385.  
  386.  
  387. BACKTOMENU:
  388.  
  389.  jsr CLEARKEYBOARD
  390.  
  391.  
  392.  cmp.b #'s',mors
  393.  beq.s BACKTOSLAVE
  394.  cmp.b #'m',mors
  395.  beq.s BACKTOMASTER
  396.  bsr READMAINMENU
  397.  bra DONEMENU
  398. BACKTOMASTER:
  399.  bsr MASTERMENU
  400.  bra DONEMENU
  401. BACKTOSLAVE:
  402.  bsr SLAVEMENU
  403. DONEMENU:
  404.  
  405.  jsr mnu_clearscreen
  406. ; jsr mnu_DROPBLITINT
  407.  move.w #$83f0,$dff096
  408.  
  409.  bsr WAITREL
  410.  
  411. ; IFEQ CD32VER
  412. ; move.l OLDKINT,$68.w
  413. ; ENDC
  414.  
  415.  
  416.  
  417.  
  418. ; bsr CLRSPRITES
  419.  
  420. ; move.w #23,FADEAMOUNT
  421. ; bsr FADEUPTITLE
  422. ; move.w #31,FADEAMOUNT
  423.  bsr FADEDOWNTITLE
  424.  
  425.  move.w #$0201,titleplanes
  426.  
  427.     FILTER
  428.     
  429.  tst.b SHOULDQUIT
  430.  bne QUITTT
  431.  
  432. ; bsr RELEASETITLEMEM
  433.  
  434.   
  435. ; jsr LOADBOTPIC
  436.  
  437.   
  438.  clr.b FINISHEDLEVEL
  439.  
  440.  move.w #0,PLR1s_angpos
  441.  move.w #0,PLR2s_angpos
  442.  move.w #0,PLR1_angpos
  443.  move.w #0,PLR2_angpos
  444.  move.b #0,PLR1_GunSelected
  445.  move.b #0,PLR2_GunSelected
  446.  
  447. **************************8
  448.  clr.b NASTY
  449. *************************** 
  450.  
  451.  move.l #MASTERPLAYERONEHEALTH,a0
  452.  move.l #MASTERPLAYERONESHIELD,a1
  453.  move.l #PLAYERONEHEALTH,a2
  454.  move.l #PLAYERONESHIELD,a3
  455.  move.l #PLAYERTWOHEALTH,a4
  456.  move.l #PLAYERTWOSHIELD,a5
  457.  
  458.  REPT 11 
  459.  move.l (a0),(a2)+
  460.  move.l (a0)+,(a4)+
  461.  ENDR
  462.  
  463.  REPT 6 
  464.  move.l (a1),(a3)+
  465.  move.l (a1)+,(a5)+
  466.  ENDR
  467.  
  468. *************************************
  469.  jsr INITQUEUE
  470.  
  471.  move.l #MEMF_CHIP,d1
  472.  move.l #10240*8,d0
  473.  move.l 4.w,a6
  474.  jsr -198(a6)
  475.  move.l d0,scrn
  476.  
  477.  move.l #MEMF_CHIP,d1
  478.  move.l #10240*8,d0
  479.  move.l 4.w,a6
  480.  jsr -198(a6)
  481.  move.l d0,scrn2
  482.  
  483.     move.l    #borderpacked,d0
  484.     moveq    #0,d1
  485.     move.l  scrn,a0
  486.     lea    WorkSpace,a1
  487.     lea    $0,a2
  488.     jsr    unLHA
  489.  
  490.     move.l    #borderpacked,d0
  491.     moveq    #0,d1
  492.     move.l  scrn2,a0
  493.     lea    WorkSpace,a1
  494.     lea    $0,a2
  495.     jsr    unLHA
  496.  
  497. ; move.l #MEMF_CHIP,TYPEOFMEM
  498. ; move.l #bordername,a0
  499. ; move.l #scrn,d0
  500. ; move.l #0,d1
  501. ; jsr QUEUEFILE
  502. ; 
  503. ; ifeq CHEESEY
  504. ; move.l #bordername,a0
  505. ; move.l #scrn2,d0
  506. ; move.l #0,d1
  507. ; jsr QUEUEFILE
  508. ; endc 
  509. ; 
  510. ; jsr FLUSHQUEUE
  511.  
  512.  ifne CHEESEY
  513.  
  514.  move.l scrn,scrn2
  515.  
  516.  endc
  517.  
  518. ************************************* 
  519.  
  520.     jsr PLAYTHEGAME
  521.     
  522. *************************************
  523.  move.l scrn,a1
  524.  move.l #10240*8,d0
  525.  move.l 4.w,a6
  526.  jsr -210(a6)
  527.  ifeq CHEESEY
  528.  move.l scrn2,a1
  529.  move.l #10240*8,d0
  530.  move.l 4.w,a6
  531.  jsr -210(a6)
  532.  endc
  533. *************************************
  534.  
  535. ; bsr FREEBOTMEM 
  536.  
  537. ; bra QUITTT
  538.  
  539.  tst.b FINISHEDLEVEL
  540.  beq dontusestats
  541.  
  542.  move.l #MASTERPLAYERONEHEALTH,a0
  543.  move.l #MASTERPLAYERONESHIELD,a1
  544.  move.l #PLAYERONEHEALTH,a2
  545.  move.l #PLAYERONESHIELD,a3
  546.  
  547.  REPT 11 
  548.  move.l (a2)+,(a0)+
  549.  ENDR
  550.  
  551.  REPT 6 
  552.  move.l (a3)+,(a1)+
  553.  ENDR
  554.  
  555. dontusestats:
  556.  
  557. ; bsr PASSLINETOGAME
  558. ; bsr GETSTATS
  559.  
  560. ; bsr GETTITLEMEM
  561. ; bsr CLROPTSCRN
  562. ; bsr SETUPTITLESCRN
  563.  
  564. ; move.l #TITLESCRNNAME2,TITLESCRNPTR
  565. ; bsr LOADTITLESCRN2
  566. ; move.w #$7201,titleplanes
  567.  
  568. ; move.w #$20,$dff1dc
  569. ; move.l #titlecop,$dff080
  570. ; move.w #$87c0,$dff000+dmacon
  571. ; move.w #$8020,$dff000+dmacon 
  572.  
  573. ; move.w #0,FADEVAL
  574. ; move.w #31,FADEAMOUNT
  575. ; bsr FADEUPTITLE
  576.  
  577. ; move.w #23,FADEAMOUNT
  578. ; bsr FADEDOWNTITLE 
  579.  
  580. ; IFEQ CD32VER
  581. ; jsr KInt_Init
  582. ; ENDC
  583.  
  584.  jsr mnu_GETBLITINT
  585.  jsr mnu_setscreen
  586.  
  587.  
  588.  bra BACKTOMENU
  589.  
  590. QUITTT:
  591.  
  592.  move.l LEVELDATA,d1
  593.  move.l d1,a1
  594.  move.l #120000,d0
  595.  move.l 4.w,a6
  596.  jsr -210(a6)
  597.  
  598.  move.l TEXTSCRN,d1
  599.  move.l d1,a1
  600.  move.l #10240*2,d0
  601.  move.l 4.w,a6
  602.  jsr -210(a6)
  603.  
  604.  move.l FASTBUFFER,d1    
  605.  move.l #2*320*256,d0
  606.  move.l 4.w,a6
  607.  jsr -210(a6)
  608.  
  609. ; jsr RELEASEWALLMEM
  610.  jsr RELEASESAMPMEM
  611.  jsr RELEASEFLOORMEM
  612.  jsr RELEASEOBJMEM
  613.   
  614.  move.l old,$dff080
  615.  move.l 4.w,a6
  616.  lea VBLANKInt,a1
  617.  moveq #INTB_COPER,d0
  618.  jsr _LVORemIntServer(a6)
  619.  
  620.  move.l 4.w,a6
  621.  lea KEYInt,a1
  622.  moveq #INTB_PORTS,d0
  623.  jsr _LVORemIntServer(a6)
  624.  
  625.  move.w #$f8e,$dff1dc
  626.  
  627.  move.l old,$dff080
  628.  move.w _storeint,d0
  629.  or.w d0,$dff000+intena
  630.  
  631. ; move.l    4.w,a6
  632. ; jsr    _LVOPermit(a6)
  633.  
  634.  
  635.  move.l #0,d0
  636.  
  637.  rts
  638.  
  639. SSTACK: dc.l 0
  640.  
  641. backpicname: dc.b "tkg1:includes/rawbackpacked"
  642.   dc.b 0
  643.  
  644. bordername: dc.b "TKG2:includes/newborderRAW",0
  645.  even
  646. borderpacked: incbin "ab3:includes/newborderPACKED"
  647.  
  648. ; KEY OPTIONS:
  649. CONTROLBUFFER:
  650. turn_left_key:
  651.  dc.b $4f
  652. turn_right_key:
  653.  dc.b $4e
  654. forward_key:
  655.  dc.b $4c
  656. backward_key:
  657.  dc.b $4d
  658. fire_key:
  659.  dc.b $65
  660. operate_key:
  661.  dc.b $40
  662. run_key:
  663.  dc.b $61
  664. force_sidestep_key:
  665.  dc.b $67
  666. sidestep_left_key:
  667.  dc.b $39
  668. sidestep_right_key:
  669.  dc.b $3a
  670. duck_key:
  671.  dc.b $22
  672. look_behind_key:
  673.  dc.b $28
  674. jump_key:
  675.  dc.b $f
  676. look_up_key:
  677.  dc.b 27
  678. look_down_key:
  679.  dc.b 42
  680. centre_view_key:
  681.  dc.b 41
  682. next_weapon_key:
  683.  dc.b 68
  684.  
  685. templeftkey: dc.b 0
  686. temprightkey: dc.b 0
  687. tempslkey: dc.b 0 
  688. tempsrkey: dc.b 0
  689.  
  690.  even 
  691.  
  692. GETSTATS:
  693. ; CHANGE PASSWORD INTO RAW DATA
  694.  
  695.  rts
  696.  
  697.  
  698. SETPLAYERS:
  699.  
  700.  move.w PLOPT,d0
  701.  add.b #'a',d0
  702.  move.b d0,LEVA
  703.  move.b d0,LEVB
  704.  move.b d0,LEVC
  705.  move.b d0,LEVD
  706.  move.b d0,LEVE
  707.  
  708.  cmp.b #'s',mors
  709.  beq SLAVESETUP
  710.  cmp.b #'m',mors
  711.  beq MASTERSETUP
  712.  st NASTY
  713. onepla:
  714.  rts
  715.  
  716. NASTY: dc.w 0
  717.  
  718. MASTERSETUP:
  719.  clr.b NASTY
  720.  move.w PLOPT,d0
  721.  jsr SENDFIRST
  722.  
  723.  move.w Rand1,d0
  724.  jsr SENDFIRST
  725.  
  726.  bsr TWOPLAYER
  727.  rts
  728.  
  729. SLAVESETUP:
  730.  CLR.B NASTY
  731.  jsr RECFIRST
  732.  move.w d0,PLOPT
  733.  add.b #'a',d0
  734.  move.b d0,LEVA
  735.  move.b d0,LEVB
  736.  move.b d0,LEVC
  737.  move.b d0,LEVD
  738.  move.b d0,LEVE
  739.  
  740.  jsr RECFIRST
  741.  move.w d0,Rand1
  742.  bsr TWOPLAYER
  743.  
  744.  
  745.  rts
  746.      
  747. ********************************************************
  748.  
  749. ASKFORDISK:
  750.  lea RVAL1+300(pc),a0
  751.  lea RVAL2+900(pc),a1
  752.  PRSDD
  753.  move.w #10,OptScrn
  754.  bsr DRAWOPTSCRN
  755.  
  756. ProtChkNLev1:
  757. .wtrel:
  758.  btst #7,$bfe001
  759.  beq.s .wtrel
  760.  
  761. wtclick:
  762.  add.w #$235,-300(a0)
  763.  add.w #$4533,-900(a0)
  764.  btst #6,$bfe001
  765.  bne.s wtclick
  766.  
  767.  rts
  768.  
  769. CLRSPRITES: 
  770.  move.l #nullspr,d0
  771.  move.w d0,tsp0l
  772.  move.w d0,tsp1l
  773.  move.w d0,tsp2l
  774.  move.w d0,tsp3l
  775.  move.w d0,tsp4l
  776.  move.w d0,tsp5l
  777.  move.w d0,tsp6l
  778.  move.w d0,tsp7l
  779.  swap d0
  780.  move.w d0,tsp0h
  781.  move.w d0,tsp1h
  782.  move.w d0,tsp2h
  783.  move.w d0,tsp3h
  784.  move.w d0,tsp4h
  785.  move.w d0,tsp5h
  786.  move.w d0,tsp6h
  787.  move.w d0,tsp7h 
  788.  rts
  789.  
  790. ********************************************************
  791.  
  792. READMAINMENU:
  793.  
  794.  move.b #'n',mors
  795.  
  796.  move.w MAXLEVEL,d0
  797.  
  798.  
  799.  move.l #mnu_CURRENTLEVELLINE,a1
  800.  muls #40,d0
  801.  move.l LINKFILE,a0
  802.  add.l #LevelName,a0
  803.  add.l d0,a0
  804.  bsr PUTINLINE
  805.  
  806. ; Stay here until 'play game' is selected.
  807.  
  808. ; move.w #0,OptScrn
  809. ; bsr DRAWOPTSCRN
  810. ; move.w #0,OPTNUM
  811.  
  812.  lea mnu_MYMAINMENU,a0
  813.  bsr MYOPENMENU
  814.  
  815. .rdlop:
  816.  lea mnu_MYMAINMENU,a0
  817.  bsr CHECKMENU
  818.  
  819. ; tst.w d0
  820. ; blt.s .rdlop
  821.  
  822. ; tst.w d0
  823. ; bne.s .nonextlev
  824. ; move.w LEVELSELECTED,d0
  825. ; add.w #1,d0
  826. ; cmp.w MAXLEVEL,d0
  827. ; blt .nowrap
  828. ; moveq #0,d0
  829. ;.nowrap:
  830. ; and.w #$f,d0
  831. ; move.w d0,LEVELSELECTED
  832. ; move.l #CURRENTLEVELLINE,a1
  833. ; muls #40,d0
  834. ; move.l #LEVEL_OPTS,a0
  835. ; add.l d0,a0
  836. ; bsr PUTINLINE
  837. ; bsr JUSTDRAWIT
  838. ; bra .rdlop
  839.  
  840. .nonextlev:
  841.  
  842.  cmp.w #1,d0
  843.  bne .noopt
  844.  
  845.  bra MASTERMENU
  846.  
  847. .noopt:
  848.  
  849. ; cmp.w #5,d0
  850. ; bne.s .noqui
  851. ; st SHOULDQUIT
  852. ; bra playgame
  853. ;.noqui
  854.  
  855.  cmp.w #2,d0
  856.  beq playgame
  857.  
  858.  cmp.w #3,d0
  859.  bne .nocontrol
  860.  
  861.  bsr CHANGECONTROLS
  862.  
  863. ; move.w #0,OptScrn
  864. ; bsr DRAWOPTSCRN
  865. ; move.w #0,OPTNUM
  866.  
  867.  lea mnu_MYMAINMENU,a0
  868.  bsr MYOPENMENU
  869.  
  870.  bsr WAITREL
  871.  bra .rdlop
  872.  
  873. .nocontrol:
  874.  
  875. ********************************
  876.  
  877.  cmp.w #4,d0
  878.  bne .nocred
  879. ; bsr SHOWCREDITS
  880. ; move.w #0,OptScrn
  881. ; bsr DRAWOPTSCRN
  882. ; move.w #1,OPTNUM
  883. ;
  884. ; bsr HIGHLIGHT
  885. ;
  886. ; bsr WAITREL
  887. ; bra .rdlop
  888.  
  889.  jsr mnu_viewcredz
  890.  lea mnu_MYMAINMENU,a0
  891.  bsr MYOPENMENU
  892.  
  893.  bra .rdlop
  894.  
  895. ********************************
  896.  
  897. .nocred:
  898.  
  899.  cmp.w #5,d0
  900.  bne .noload
  901.  
  902.  jsr LOADPOSITION
  903.  
  904. ; move.w #0,OptScrn
  905. ; bsr DRAWOPTSCRN
  906. ; move.w #1,OPTNUM
  907.  
  908.  lea mnu_MYMAINMENU,a0
  909.  bsr MYOPENMENU
  910.  
  911.  bsr WAITREL
  912.  bra .rdlop
  913.  
  914. .noload:
  915.  cmp.w #6,d0
  916.  bne playgame
  917.  bsr WAITREL
  918.  
  919.  jsr SAVEPOSITION
  920.  
  921. ; move.w #0,OptScrn
  922. ; bsr DRAWOPTSCRN
  923. ; move.w #1,OPTNUM
  924. ;
  925. ; bsr HIGHLIGHT
  926.  
  927.  lea mnu_MYMAINMENU,a0
  928.  bsr MYOPENMENU
  929.  
  930.  bsr WAITREL
  931.  bra .rdlop
  932.  
  933.  
  934. ;
  935. ; move.l #PASSWORDLINE+12,a0
  936. ; moveq #15,d2
  937. ;.clrline:
  938. ; move.b #32,(a0)+
  939. ; dbra d2,.clrline 
  940. ; move.w #0,OptScrn
  941. ; bsr DRAWOPTSCRN
  942. ;
  943. ; IFEQ CD32VER
  944. ; clr.b lastpressed
  945. ; move.l #PASSWORDLINE+12,a0
  946. ; move.w #0,d1
  947. ;.ENTERPASS:
  948. ; tst.b lastpressed
  949. ; beq .ENTERPASS
  950. ; move.b lastpressed,d2
  951. ; move.b #0,lastpressed
  952. ; move.l #KVALTOASC,a1
  953. ; 
  954. ; cmp.l #'<-- ',(a1,d2.w*4)
  955. ; bne .nodel
  956. ;
  957. ; tst.b d1
  958. ; beq .nodel
  959. ;
  960. ; subq #1,d1
  961. ; move.b #32,-(a0)
  962. ; movem.l d0-d7/a0-a6,-(a7)
  963. ; bsr JUSTDRAWIT
  964. ; movem.l (a7)+,d0-d7/a0-a6
  965. ; bra .ENTERPASS
  966. ;
  967. ;.nodel:
  968. ; 
  969. ; cmp.l #'RTN ',(a1,d2.w*4)
  970. ; beq .FORGETIT
  971. ; cmp.l #'ESC ',(a1,d2.w*4)
  972. ; beq .FORGETIT
  973. ; move.b 1(a1,d2.w*4),d2
  974. ; cmp.b #65,d2
  975. ; blt .ENTERPASS
  976. ; cmp.b #'Z',d2
  977. ; bgt .ENTERPASS
  978. ; move.b d2,(a0)+
  979. ; move.w #0,OptScrn
  980. ; movem.l d0-d7/a0-a6,-(a7)
  981. ; bsr JUSTDRAWIT
  982. ; movem.l (a7)+,d0-d7/a0-a6
  983. ; add.w #1,d1
  984. ; cmp.w #16,d1
  985. ; blt .ENTERPASS
  986. ;
  987. ; ENDC
  988. ; IFNE CD32VER
  989. ; move.l #PASSWORDLINE+12,a0
  990. ; move.w #15,d0
  991. ;.ENTERPASS:
  992. ; bsr GETACHAR
  993. ; dbra d0,.ENTERPASS
  994. ; ENDC
  995. ;
  996. ; bsr PASSLINETOGAME
  997. ; tst.w d0
  998. ; bne .FORGETIT
  999. ; 
  1000. ; bsr GETSTATS
  1001. ; move.w MAXLEVEL,d0
  1002. ; move.l #CURRENTLEVELLINE,a1
  1003. ; muls #40,d0
  1004. ; move.l #LEVEL_OPTS,a0
  1005. ; add.l d0,a0
  1006. ; bsr PUTINLINE
  1007. ;
  1008. ;.FORGETIT:
  1009. ; bsr WAITREL
  1010. ; bsr CALCPASSWORD
  1011. ;
  1012. ; move.w #0,OptScrn
  1013. ; bsr DRAWOPTSCRN
  1014. ;
  1015. ; move.w #1,OPTNUM
  1016. ;
  1017. ; bsr HIGHLIGHT
  1018. ;
  1019. ; bra .rdlop 
  1020.  
  1021. playgame:
  1022.  move.w MAXLEVEL,PLOPT
  1023.  rts
  1024.  
  1025. SHOULDQUIT: dc.w 0
  1026.  
  1027. LEVELSELECTED:
  1028.  dc.w 0
  1029.  
  1030.  IFNE CD32VER
  1031. GETACHAR:
  1032.  moveq #0,d7
  1033.  move.b #'A',(a0)
  1034.  movem.l d0-d7/a0-a6,-(a7)
  1035.  jsr JUSTDRAWIT
  1036.  movem.l (a7)+,d0-d7/a0-a6
  1037.  
  1038. .wtnum:
  1039.  btst #1,$dff00c
  1040.  sne d1
  1041.  btst #1,$dff00d
  1042.  sne d2
  1043.  btst #0,$dff00c
  1044.  sne d3
  1045.  btst #0,$dff00d
  1046.  sne d4
  1047.  
  1048.  eor.b d1,d3
  1049.  eor.b d2,d4
  1050.  
  1051.  tst.b d1
  1052.  beq.s .NODELETE
  1053.  cmp.w #15,d0
  1054.  beq.s .NODELETE
  1055.  move.b #32,(a0)
  1056.  subq #1,a0
  1057.  addq #1,d0
  1058.  move.b (a0),d7
  1059.  sub.b #'A',d7
  1060.  movem.l d0-d7/a0-a6,-(a7)
  1061.  jsr JUSTDRAWIT
  1062.  movem.l (a7)+,d0-d7/a0-a6
  1063.  jsr WAITFORNOPRESS
  1064.  bra .wtnum
  1065. .NODELETE
  1066.  
  1067.  tst.b d4
  1068.  bne.s .PREVNUM
  1069.  tst.b d3
  1070.  bne.s .NEXTNUM
  1071.  btst #7,$bfe001
  1072.  bne.s .wtnum
  1073.  addq #1,a0
  1074.  jsr WAITFORNOPRESS
  1075.  rts
  1076.  
  1077. .PREVNUM:
  1078.  subq #1,d7
  1079.  bge.s .nonegg
  1080.  moveq #15,d7
  1081. .nonegg:
  1082.  move.b d7,d1
  1083.  add.b #'A',d1
  1084.  move.b d1,(a0)
  1085.  movem.l d0-d7/a0-a6,-(a7)
  1086.  jsr JUSTDRAWIT
  1087.  movem.l (a7)+,d0-d7/a0-a6
  1088.  
  1089.  jsr WAITFORNOPRESS
  1090.  
  1091.  bra .wtnum
  1092.  
  1093. .NEXTNUM:
  1094.  addq #1,d7
  1095.  cmp.w #15,d7
  1096.  ble.s .nobigg
  1097.  moveq #0,d7
  1098. .nobigg:
  1099.  move.b d7,d1
  1100.  add.b #'A',d1
  1101.  move.b d1,(a0)
  1102.  movem.l d0-d7/a0-a6,-(a7)
  1103.  jsr JUSTDRAWIT
  1104.  movem.l (a7)+,d0-d7/a0-a6
  1105.  jsr WAITFORNOPRESS
  1106.  bra .wtnum
  1107.  rts
  1108.  ENDC
  1109.  
  1110.  
  1111. MASTERMENU:
  1112.  
  1113.  move.b #'m',mors
  1114.  
  1115.  move.w #0,LEVELSELECTED
  1116.  
  1117.  move.w #0,d0 
  1118.  move.l #mnu_CURRENTLEVELLINEM,a1
  1119.  muls #40,d0
  1120.  move.l LINKFILE,a0
  1121.  add.l #LevelName,a0
  1122.  add.l d0,a0
  1123.  bsr PUTINLINE
  1124.  
  1125. ; Stay here until 'play game' is selected.
  1126.  
  1127. ; move.w #4,OptScrn
  1128. ; bsr DRAWOPTSCRN
  1129. ; move.w #1,OPTNUM
  1130.  
  1131. ; bsr HIGHLIGHT
  1132. ; bsr WAITREL
  1133.  
  1134.  lea mnu_MYMASTERMENU,a0
  1135.  bsr MYOPENMENU
  1136.  
  1137. .rdlop:
  1138.  lea mnu_MYMASTERMENU,a0
  1139.  bsr CHECKMENU
  1140. ; tst.w d0
  1141. ; blt.s .rdlop
  1142. ; bsr WAITREL
  1143.  
  1144.  
  1145.  
  1146.  cmp.w #1,d0
  1147.  bne.s .nonextlev
  1148.  
  1149.  move.w LEVELSELECTED,d0
  1150.  add.w #1,d0
  1151.  cmp.w MAXLEVEL,d0
  1152.  blt .nowrap
  1153.  moveq #0,d0
  1154. .nowrap:
  1155. ; and.w #$f,d0
  1156.  move.w d0,LEVELSELECTED
  1157.  move.l #mnu_CURRENTLEVELLINEM,a1
  1158.  muls #40,d0
  1159.  move.l LINKFILE,a0
  1160.  add.l #LevelName,a0
  1161.  add.l d0,a0
  1162.  bsr PUTINLINE
  1163.  
  1164.  lea mnu_MYMASTERMENU,a0
  1165.  jsr mnu_redraw
  1166.  
  1167.  bra .rdlop
  1168.  
  1169. .nonextlev:
  1170.  
  1171.  cmp.w #2,d0
  1172.  beq .playgame
  1173.  
  1174.  cmp.w #0,d0
  1175.  bne .noopt
  1176.  
  1177.  bra SLAVEMENU
  1178.  
  1179. .noopt:
  1180.  
  1181.  cmp.w #3,d0
  1182.  bne .nocontrol
  1183.  
  1184.  bsr CHANGECONTROLS
  1185.  
  1186. ; move.w #4,OptScrn
  1187. ; bsr DRAWOPTSCRN
  1188. ; move.w #0,OPTNUM
  1189. ;
  1190. ; bsr HIGHLIGHT
  1191. ;
  1192. ; bsr WAITREL
  1193.  
  1194.  lea mnu_MYMASTERMENU,a0
  1195.  bsr MYOPENMENU
  1196.  
  1197.  bra .rdlop
  1198.  
  1199. .nocontrol:
  1200.  
  1201. .playgame
  1202.  
  1203.  move.w LEVELSELECTED,PLOPT
  1204.  rts
  1205.  
  1206. SLAVEMENU:
  1207.  
  1208.  move.b #'s',mors
  1209.  
  1210. ; Stay here until 'play game' is selected.
  1211.  
  1212.  lea mnu_MYSLAVEMENU,a0
  1213.  bsr MYOPENMENU
  1214.  
  1215. ; move.w #5,OptScrn
  1216. ; bsr DRAWOPTSCRN
  1217. ; move.w #1,OPTNUM
  1218. ;
  1219. ; bsr HIGHLIGHT
  1220. ;
  1221. ; bsr WAITREL
  1222. .rdlop:
  1223.  lea mnu_MYSLAVEMENU,a0
  1224.  bsr CHECKMENU
  1225.  tst.w d0
  1226.  blt.s .rdlop
  1227.  bsr WAITREL
  1228.  
  1229.  cmp.w #1,d0
  1230.  beq .playgame
  1231.  
  1232.  cmp.w #0,d0
  1233.  bne .noopt
  1234.  
  1235.  bra READMAINMENU
  1236.  
  1237. .noopt:
  1238.  
  1239.  cmp.w #2,d0
  1240.  bne .nocontrol
  1241.  
  1242.  bsr CHANGECONTROLS
  1243.  
  1244. ; move.w #5,OptScrn
  1245. ; bsr DRAWOPTSCRN
  1246. ; move.w #0,OPTNUM
  1247. ;
  1248. ; bsr HIGHLIGHT
  1249. ;
  1250. ; bsr WAITREL
  1251.  
  1252.  lea mnu_MYSLAVEMENU,a0
  1253.  bsr MYOPENMENU
  1254.  
  1255.  
  1256.  bra .rdlop
  1257.  
  1258. .nocontrol:
  1259. .playgame:
  1260.  
  1261.  rts
  1262.  
  1263. STATBACK: ds.w 34
  1264.  
  1265. TWOPLAYER:
  1266.  
  1267.  move.w #200,PLAYERONEHEALTH
  1268.  move.w #200,PLAYERTWOHEALTH
  1269.  
  1270.  move.w #0,PLAYERONEFUEL
  1271.  
  1272.  st.b PLAYERONEGUNS+1
  1273.  st.b PLAYERONEGUNS+3
  1274.  st.b PLAYERONEGUNS+5
  1275.  st.b PLAYERONEGUNS+7
  1276.  st.b PLAYERONEGUNS+9
  1277.  st.b PLAYERONEGUNS+11
  1278.  st.b PLAYERONEGUNS+13
  1279.  st.b PLAYERONEGUNS+15
  1280.  st.b PLAYERONEGUNS+17
  1281.  st.b PLAYERONEGUNS+19
  1282.  
  1283.  st.b PLAYERONEJETPACK+1
  1284.  
  1285.  st.b PLAYERTWOGUNS+1
  1286.  st.b PLAYERTWOGUNS+3
  1287.  st.b PLAYERTWOGUNS+5
  1288.  st.b PLAYERTWOGUNS+7
  1289.  st.b PLAYERTWOGUNS+9
  1290.  st.b PLAYERTWOGUNS+11
  1291.  st.b PLAYERTWOGUNS+13
  1292.  st.b PLAYERTWOGUNS+15
  1293.  st.b PLAYERTWOGUNS+17
  1294.  st.b PLAYERTWOGUNS+19
  1295.  
  1296.  move.w #0,PLAYERTWOFUEL
  1297.  
  1298.  st.b PLAYERTWOJETPACK+1
  1299.  
  1300.  move.l #PLAYERONEAMMO,a0
  1301.  move.l #PLAYERTWOAMMO,a1
  1302.  move.w #19,d1
  1303. .putinvals
  1304.  jsr GetRand
  1305.  and.w #63,d0
  1306.  add.w #5,d0
  1307.  move.w d0,(a0)+
  1308.  move.w d0,(a1)+
  1309.  dbra d1,.putinvals
  1310.  
  1311.  rts
  1312.  
  1313.  move.w #0,OldEnergy
  1314.  move.w #127,Energy
  1315.  jsr EnergyBar
  1316.  
  1317.  move.w #63,OldAmmo
  1318.  move.w #0,Ammo
  1319.  jsr AmmoBar
  1320.  move.w #0,OldAmmo
  1321.  
  1322.  move.b #0,PLR1_GunSelected
  1323.  
  1324.  move.b #0,PLR2_GunSelected
  1325.  rts
  1326.  
  1327. newdum:
  1328.  rts
  1329.  
  1330. DEFAULTGAME:
  1331.  move.w #0,MAXLEVEL
  1332.  
  1333.  move.l #MASTERPLAYERONEHEALTH,a0
  1334.  move.l #MASTERPLAYERONESHIELD,a1
  1335.  move.l #0,(a0)+
  1336.  move.l #0,(a0)+
  1337.  move.l #0,(a0)+
  1338.  move.l #0,(a0)+
  1339.  move.l #0,(a0)+
  1340.  move.l #0,(a0)+
  1341.  move.l #0,(a0)+
  1342.  move.l #0,(a0)+
  1343.  move.l #0,(a0)+
  1344.  move.l #0,(a0)+
  1345.  move.l #0,(a0)+
  1346.  
  1347.  move.l #0,(a1)+
  1348.  move.l #0,(a1)+
  1349.  move.l #0,(a1)+
  1350.  move.l #0,(a1)+
  1351.  move.l #0,(a1)+
  1352.  move.l #0,(a1)+
  1353.  
  1354.  move.w #200,MASTERPLAYERONEHEALTH
  1355.  move.w #$ff,MASTERPLAYERONEGUNS
  1356.  
  1357.  move.l LINKFILE,a5
  1358.  add.l #GunBulletTypes,a5
  1359.  move.w (a5),d0
  1360.  
  1361.  move.l #MASTERPLAYERONEAMMO,a5
  1362.  move.w #20,(a5,d0.w*2)
  1363.  
  1364.  rts
  1365.  
  1366. CHKPROT: dc.w 0
  1367.  
  1368. GETPARITY:
  1369.  move.w #6,d3
  1370. .calcparity:
  1371.  btst d3,d0
  1372.  beq.s .nochange
  1373.  bchg #7,d0
  1374. .nochange:
  1375.  dbra d3,.calcparity
  1376.  rts
  1377.  
  1378. CHECKPARITY:
  1379.  move.w #6,d3
  1380.  move.b #$0,d2
  1381. .calcparity:
  1382.  btst d3,d0
  1383.  beq.s .nochange
  1384.  bchg #7,d2
  1385. .nochange:
  1386.  dbra d3,.calcparity
  1387.  move.b d0,d1
  1388.  and.b #$80,d1
  1389.  eor.b d1,d2
  1390.  sne.s d5
  1391.  rts
  1392.  
  1393. CALCPASSWORD:
  1394.  rts
  1395.  
  1396. PASSLINETOGAME:
  1397.  rts
  1398.  
  1399. illega:
  1400.  
  1401.  move.w #-1,d0
  1402.  
  1403.  rts
  1404.  
  1405. PASSBUFFER:
  1406.  ds.b 8
  1407.  
  1408. CHECKBUFFER: ds.b 8
  1409.  
  1410. PASS:
  1411.  ds.b 16
  1412.  
  1413. **************************************************
  1414.  
  1415. CHANGECONTROLS:
  1416.  
  1417. ; move.w #6,OptScrn
  1418. ; bsr DRAWOPTSCRN
  1419. ; move.w #0,OPTNUM
  1420. ; bsr HIGHLIGHT
  1421. ; bsr WAITREL
  1422.  
  1423.  lea mnu_MYCONTROLSONE,a0
  1424.  bsr MYOPENMENU
  1425.  
  1426. .rdlop:
  1427.  lea mnu_MYCONTROLSONE,a0
  1428.  bsr CHECKMENU
  1429.  
  1430. ; tst.w d0
  1431. ; blt.s .rdlop
  1432.  
  1433.  cmp.w #11,d0
  1434.  beq CHANGECONTROLS2
  1435.  
  1436.  move.l #KEY_LINES,a0
  1437.  move.w d0,d1
  1438.  muls #21,d1
  1439.  add.l d1,a0
  1440.  add.w #16,a0
  1441.  move.w #$2020,(a0)
  1442.  
  1443.  
  1444.  
  1445.  movem.l a0/d0,-(a7)
  1446.  
  1447.  lea mnu_MYCONTROLSONE,a0
  1448.  jsr mnu_redraw
  1449.  
  1450. *********************************************
  1451.         move.l    #mnu_buttonanim,mnu_frameptr
  1452.         jsr    mnu_getrawvalue
  1453.         move.l    #mnu_cursanim,mnu_frameptr
  1454. ***********************************************
  1455.  
  1456.  move.l #CONTROLBUFFER,a1
  1457.  moveq #0,d1
  1458.  move.b d0,d1
  1459.  
  1460.  movem.l (a7)+,d0/a0
  1461.  
  1462.  move.b d1,(a1,d0.w)
  1463. ; move.l #KVALTOASC,a1
  1464.  add.w #132,d1
  1465.  move.b d1,1(a0)
  1466. ; move.l (a1,d1.w*4),(a0)
  1467. ; bsr JUSTDRAWIT
  1468. ; bsr WAITREL
  1469.  lea mnu_MYCONTROLSONE,a0
  1470.  jsr mnu_redraw
  1471.  bra .rdlop
  1472.  
  1473. .backtomain:
  1474.  rts
  1475.  
  1476.  
  1477. CHANGECONTROLS2:
  1478.  lea mnu_MYCONTROLSTWO,a0
  1479.  bsr MYOPENMENU
  1480.  
  1481. .rdlop:
  1482.  lea mnu_MYCONTROLSTWO,a0
  1483.  bsr CHECKMENU
  1484.  
  1485. ; tst.w d0
  1486. ; blt.s .rdlop
  1487.  
  1488.  cmp.w #6,d0
  1489.  beq .backtomain
  1490.  
  1491.  move.l #KEY_LINES2,a0
  1492.  move.w d0,d1
  1493.  muls #21,d1
  1494.  add.l d1,a0
  1495.  add.w #16,a0
  1496.  move.w #$2020,(a0)
  1497.  
  1498.  movem.l a0/d0,-(a7)
  1499.  
  1500.  lea mnu_MYCONTROLSTWO,a0
  1501.  jsr mnu_redraw
  1502.  
  1503. **********************************************
  1504.         move.l    #mnu_buttonanim,mnu_frameptr
  1505.         jsr    mnu_getrawvalue
  1506.         move.l    #mnu_cursanim,mnu_frameptr
  1507. ***********************************************
  1508.  
  1509.  move.l #CONTROLBUFFER+11,a1
  1510.  moveq #0,d1
  1511.  move.b d0,d1
  1512.  
  1513.  movem.l (a7)+,d0/a0
  1514.  
  1515.  move.b d1,(a1,d0.w)
  1516. ; move.l #KVALTOASC,a1
  1517.  add.w #132,d1
  1518.  move.b d1,1(a0)
  1519. ; move.l (a1,d1.w*4),(a0)
  1520. ; bsr JUSTDRAWIT
  1521. ; bsr WAITREL
  1522.  lea mnu_MYCONTROLSTWO,a0
  1523.  jsr mnu_redraw
  1524.  bra .rdlop
  1525.  
  1526. .backtomain:
  1527.  rts
  1528.  rts
  1529.  
  1530. **************************************************
  1531.  
  1532.  
  1533. MAXLEVEL: dc.w 0
  1534.  
  1535. SHOWCREDITS:
  1536.  move.w #2,OptScrn
  1537.  bsr DRAWOPTSCRN
  1538.  move.w #0,OPTNUM
  1539.  bsr HIGHLIGHT
  1540.  
  1541.  bsr WAITREL
  1542.  
  1543. .rdlop:
  1544.  bsr CHECKMENU
  1545.  tst.w d0
  1546.  blt.s .rdlop
  1547.  
  1548.  bra READMAINMENU
  1549.  
  1550. HELDDOWN:
  1551.  dc.w 0
  1552.  
  1553. WAITREL:
  1554.  
  1555.  movem.l d0/d1/d2/d3,-(a7)
  1556.  
  1557.  move.l #KeyMap,a5
  1558. WAITREL2:
  1559.  btst #7,$bfe001
  1560.  beq.s WAITREL2
  1561.  
  1562.  IFEQ CD32VER
  1563.  tst.b $40(a5)
  1564.  bne.s WAITREL2
  1565.  tst.b $44(a5)
  1566.  bne.s WAITREL2
  1567.  tst.b $4c(a5)
  1568.  bne.s WAITREL2
  1569.  tst.b $4d(a5)
  1570.  bne.s WAITREL2
  1571.  ENDC
  1572.  
  1573.  btst #1,$dff00c
  1574.  sne d0
  1575.  btst #1,$dff00d
  1576.  sne d1
  1577.  btst #0,$dff00c
  1578.  sne d2
  1579.  btst #0,$dff00d
  1580.  sne d3
  1581.  
  1582.  eor.b d0,d2
  1583.  eor.b d1,d3
  1584.  tst.b d2
  1585.  bne.s WAITREL2
  1586.  tst.b d3
  1587.  bne.s WAITREL2
  1588.  
  1589.  
  1590.  movem.l (a7)+,d0/d1/d2/d3
  1591.  rts
  1592.  
  1593. PUTINLINE:
  1594.  moveq #19,d0
  1595. pill
  1596.  move.b (a0)+,(a1)+
  1597.  dbra d0,pill
  1598.  rts
  1599.  
  1600. MYOPENMENU:
  1601. .redraw:    move.l    a0,-(a7)
  1602.         jsr    mnu_openmenu        ; Open new menu
  1603.         move.l    (a7)+,a0
  1604.     rts
  1605.  
  1606. CHECKMENU:
  1607.  
  1608.     move.b #0,lastpressed
  1609.  
  1610. .loop:        movem.l    a0,-(a7)
  1611.         jsr    mnu_update
  1612.         movem.l    (a7)+,a0
  1613.         move.l    a0,-(a7)
  1614.         jsr    mnu_waitmenu        ; Wait for option
  1615.         move.l    (a7)+,a0
  1616.         moveq.l    #0,d2
  1617.         move.w    mnu_row,d2
  1618.         divu    14(a0),d2
  1619.         swap.w    d2
  1620.         move.w    d2,mnu_currentsel
  1621.  
  1622.          move.w d2,d0    ; option number
  1623.  
  1624.  rts
  1625.  
  1626. HIGHLIGHT:
  1627.  
  1628.  SAVEREGS
  1629.  
  1630.  move.w OptScrn,d0
  1631.  move.l #MENUDATA,a0
  1632.  move.l 4(a0,d0.w*8),a0
  1633.  move.w OPTNUM,d0
  1634.  lea (a0,d0.w*8),a0
  1635.  move.w (a0)+,d0    ;left
  1636.  move.w (a0)+,d1    ;top
  1637.  move.w (a0)+,d2    ;width
  1638.  
  1639.  muls #16*8,d1
  1640.  move.l OPTSPRADDR,a1
  1641.  add.w d1,a1
  1642.  add.w #8+16,a1
  1643.  move.l #SCRTOSPR2,a5
  1644.  adda.w d0,a5
  1645.  adda.w d0,a5
  1646.  
  1647. NOTLOP:
  1648.  
  1649.  move.w (a5)+,d3
  1650.  lea (a1,d3.w),a2
  1651.  not.b (a2)
  1652.  not.b 16(a2)
  1653.  not.b 32(a2)
  1654.  not.b 48(a2)
  1655.  not.b 64(a2)
  1656.  not.b 80(a2)
  1657.  not.b 96(a2)
  1658.  not.b 112(a2)
  1659.  not.b 128(a2)
  1660.  subq #1,d2
  1661.  bgt.s NOTLOP
  1662.  
  1663.  GETREGS
  1664.  rts
  1665.  
  1666. SCRTOSPR2:
  1667. val SET 0
  1668.  REPT 6
  1669.  dc.w val+0
  1670.  dc.w val+1
  1671.  dc.w val+2
  1672.  dc.w val+3
  1673.  dc.w val+4
  1674.  dc.w val+5
  1675.  dc.w val+6
  1676.  dc.w val+7
  1677. val SET val+258*16
  1678.  ENDR
  1679.  
  1680. CLROPTSCRN:
  1681.  
  1682.  move.l #$2cdfea,d0
  1683.  move.w (a4,d0.l),d0
  1684.  add.w d0,RVAL2
  1685.  
  1686.  move.l OPTSPRADDR,a0
  1687.  lea 16(a0),a1
  1688.  lea 16+(258*16)(a0),a2
  1689.  lea 16+(258*16*2)(a0),a3
  1690.  lea 16+(258*16*3)(a0),a4
  1691.  lea 258*16(a4),a0
  1692.  
  1693.  move.w #256,d0
  1694.  moveq #0,d1
  1695. CLRLOP:
  1696.  move.l d1,(a0)+
  1697.  move.l d1,(a0)+
  1698.  move.l d1,(a0)+
  1699.  move.l d1,(a0)+
  1700.  move.l d1,(a1)+
  1701.  move.l d1,(a1)+
  1702.  move.l d1,(a1)+
  1703.  move.l d1,(a1)+
  1704.  move.l d1,(a2)+
  1705.  move.l d1,(a2)+
  1706.  move.l d1,(a2)+
  1707.  move.l d1,(a2)+
  1708.  move.l d1,(a3)+
  1709.  move.l d1,(a3)+
  1710.  move.l d1,(a3)+
  1711.  move.l d1,(a3)+
  1712.  move.l d1,(a4)+
  1713.  move.l d1,(a4)+
  1714.  move.l d1,(a4)+
  1715.  move.l d1,(a4)+
  1716.  dbra d0,CLRLOP
  1717.  
  1718.  move.l OPTSPRADDR,a0
  1719.  move.w #44*256+64,(a0)
  1720.  move.w #44*256+2,8(a0)
  1721.  add.l #258*16,a0
  1722.  
  1723.  move.w #44*256+96,(a0)
  1724.  move.w #44*256+2,8(a0)
  1725.  add.l #258*16,a0
  1726.  
  1727.  move.w #44*256+128,(a0)
  1728.  move.w #44*256+2,8(a0)
  1729.  add.l #258*16,a0
  1730.  
  1731.  move.w #44*256+160,(a0)
  1732.  move.w #44*256+2,8(a0)
  1733.  add.l #258*16,a0
  1734.  
  1735.  move.w #44*256+192,(a0)
  1736.  move.w #44*256+2,8(a0)
  1737.  
  1738.  rts
  1739.  
  1740. DRAWOPTSCRN:
  1741.  rts
  1742.  
  1743.  bsr CLROPTSCRN
  1744.  
  1745. JUSTDRAWIT:
  1746.  
  1747.  move.l #font,a0
  1748.  move.l #MENUDATA,a1
  1749.  move.w OptScrn,d0
  1750.  move.l (a1,d0.w*8),a1
  1751.  
  1752.  move.l OPTSPRADDR,a3
  1753.  add.l #16,a3
  1754.  moveq #0,d2
  1755.  
  1756.  move.w #31,d0
  1757. linelop:
  1758.  move.w #39,d1
  1759.  move.l #SCRTOSPR,a4
  1760.  move.l a3,a2
  1761. charlop:
  1762.  move.b (a1)+,d2
  1763.  lea (a0,d2.w*8),a5
  1764.  move.b (a5)+,(a2)
  1765.  move.b (a5)+,16(a2)
  1766.  move.b (a5)+,32(a2)
  1767.  move.b (a5)+,48(a2)
  1768.  move.b (a5)+,64(a2)
  1769.  move.b (a5)+,80(a2)
  1770.  move.b (a5)+,96(a2)
  1771.  move.b (a5),112(a2)
  1772.  add.w (a4)+,a2
  1773.  dbra d1,charlop
  1774.  add.w #16*8,a3
  1775.  dbra d0,linelop
  1776.  
  1777.  rts
  1778.   
  1779. SCRTOSPR:
  1780.  dc.w 1,1,1,1,1,1,1,258*16-7
  1781.  dc.w 1,1,1,1,1,1,1,258*16-7
  1782.  dc.w 1,1,1,1,1,1,1,258*16-7
  1783.  dc.w 1,1,1,1,1,1,1,258*16-7
  1784.  dc.w 1,1,1,1,1,1,1,258*16-7
  1785.  dc.w 1,1,1,1,1,1,1,258*16-7
  1786.   
  1787. OPTNUM: dc.w 0
  1788. OptScrn: dc.w 0
  1789.  
  1790. SAVEGAMENAME: dc.b "tkg2:boot.dat",0
  1791.  even
  1792.  
  1793. SAVEGAMEPOS: dc.l 0
  1794. SAVEGAMELEN: dc.l 0
  1795.  
  1796. LOADPOSITION: 
  1797.  
  1798.  jsr mnu_clearscreen
  1799.  jsr mnu_DROPBLITINT 
  1800.  
  1801.  move.l #SAVEGAMENAME,a0
  1802.  move.l #SAVEGAMEPOS,d0
  1803.  move.l #SAVEGAMELEN,d1
  1804.  jsr INITQUEUE
  1805.  jsr QUEUEFILE
  1806.  jsr FLUSHQUEUE
  1807.  
  1808.  jsr mnu_GETBLITINT
  1809.  jsr mnu_setscreen
  1810.  
  1811.  
  1812.  move.l SAVEGAMEPOS,a2    ; address of first saved game.
  1813.  
  1814.  move.l #mnu_LSLOTA+21,a4
  1815.  
  1816.  move.l a2,a3
  1817.  add.w #2+(22*2)+(12*2),a3
  1818.  move.w #4,d7
  1819. .findlevs:
  1820.  
  1821.  move.l a4,a1
  1822.  move.w (a3),d1
  1823.  muls #40,d1
  1824.  move.l LINKFILE,a0
  1825.  add.l #LevelName,a0
  1826.  add.l d1,a0
  1827.  jsr PUTINLINE
  1828.  add.l #21,a4
  1829.  add.w #2+(22*2)+(12*2),a3
  1830.  
  1831.  dbra d7,.findlevs
  1832.  
  1833. ; move.w #8,OptScrn
  1834. ; move.w #0,OPTNUM
  1835.  
  1836. ; bsr DRAWOPTSCRN
  1837. ; bsr HIGHLIGHT
  1838. ; bsr WAITREL
  1839.  
  1840.  lea mnu_MYLOADMENU,a0
  1841.  bsr MYOPENMENU
  1842.  
  1843. .rdlop:
  1844.  lea mnu_MYLOADMENU,a0
  1845.  bsr CHECKMENU
  1846.  
  1847.  cmp.w #6,d0
  1848.  beq.s .noload
  1849.  
  1850.  move.l SAVEGAMEPOS,a0
  1851.  muls #2+(22*2)+(12*2),d0
  1852.  add.l d0,a0
  1853.  
  1854.  move.l #MASTERPLAYERONEHEALTH,a1
  1855.  move.w (a0)+,MAXLEVEL
  1856.  
  1857.  REPT 11
  1858.  move.l (a0)+,(a1)+
  1859.  ENDR
  1860.  REPT 6
  1861.  move.l (a0)+,(a1)+
  1862.  ENDR
  1863.  
  1864.  move.w MAXLEVEL,d0
  1865.  move.l #mnu_CURRENTLEVELLINE,a1
  1866.  muls #40,d0
  1867.  move.l LINKFILE,a0
  1868.  add.l #LevelName,a0
  1869.  add.l d0,a0
  1870.  bsr PUTINLINE
  1871.  
  1872. .noload:
  1873.  
  1874.  move.l SAVEGAMEPOS,a1
  1875.  move.l SAVEGAMELEN,d0
  1876.  CALLEXEC FreeMem
  1877.  
  1878.  rts
  1879.  
  1880. SAVEPOSITION:
  1881.  
  1882.  jsr mnu_clearscreen
  1883.  jsr mnu_DROPBLITINT 
  1884.  
  1885.  move.l #SAVEGAMENAME,a0
  1886.  move.l #SAVEGAMEPOS,d0
  1887.  move.l #SAVEGAMELEN,d1
  1888.  jsr INITQUEUE
  1889.  jsr QUEUEFILE
  1890.  jsr FLUSHQUEUE
  1891.  
  1892.  jsr mnu_GETBLITINT
  1893.  jsr mnu_setscreen
  1894.  
  1895.  move.l SAVEGAMEPOS,a2    ; address of first saved game.
  1896.  
  1897.  add.w #2+(22*2)+(12*2),a2
  1898.  
  1899.  move.l #mnu_SSLOTA,a4
  1900.  
  1901.  move.l a2,a3
  1902.  move.w #4,d7
  1903. .findlevs:
  1904.  
  1905.  move.l a4,a1
  1906.  move.w (a3),d1
  1907.  muls #40,d1
  1908.  move.l LINKFILE,a0
  1909.  add.l #LevelName,a0
  1910.  add.l d1,a0
  1911.  jsr PUTINLINE
  1912.  add.l #21,a4
  1913.  add.w #2+(22*2)+(12*2),a3
  1914.  
  1915.  dbra d7,.findlevs
  1916.  
  1917. ; move.w #9,OptScrn
  1918. ; move.w #0,OPTNUM
  1919.  
  1920. ; bsr DRAWOPTSCRN
  1921. ; bsr HIGHLIGHT
  1922. ; bsr WAITREL
  1923.  
  1924.  lea mnu_MYSAVEMENU,a0
  1925.  bsr MYOPENMENU
  1926.  
  1927. .rdlop:
  1928.  lea mnu_MYSAVEMENU,a0
  1929.  bsr CHECKMENU
  1930.  
  1931.  cmp.w #5,d0
  1932.  beq .nosave
  1933.  
  1934.  move.l d0,-(a7)
  1935.  
  1936.  jsr mnu_clearscreen
  1937.  jsr mnu_DROPBLITINT
  1938.  
  1939.  move.w #$83f0,$dff096
  1940.  
  1941.  move.l (a7)+,d0
  1942.  
  1943.  addq #1,d0
  1944.  
  1945.  move.l SAVEGAMEPOS,a0
  1946.  muls #2+(22*2)+(12*2),d0
  1947.  add.l d0,a0
  1948.  
  1949.  move.l #MASTERPLAYERONEHEALTH,a1
  1950.  move.w MAXLEVEL,(a0)+
  1951.  
  1952.  REPT 11
  1953.  move.l (a1)+,(a0)+
  1954.  ENDR
  1955.  REPT 6
  1956.  move.l (a1)+,(a0)+
  1957.  ENDR
  1958.   
  1959.  move.l oldcopper,$dff080
  1960.  move.w #$8020,$dff000+intena
  1961.  
  1962.  move.l _IntuitionBase,a6
  1963.  jsr _LVORemakeDisplay(a6)
  1964.  
  1965.  jsr _LVORethinkDisplay(a6)
  1966.  
  1967.  move.l doslib,a6
  1968.  move.l #SAVEGAMENAME,d1
  1969.  move.l #1006,d2
  1970.  jsr -30(a6)
  1971.  move.l d0,handle
  1972.  
  1973.  move.l doslib,a6
  1974.  move.l SAVEGAMEPOS,d2
  1975.  move.l handle,d1
  1976.  move.l SAVEGAMELEN,d3
  1977.  jsr _LVOWrite(a6)
  1978.  
  1979.  move.l doslib,a6
  1980.  move.l handle,d1
  1981.  jsr -36(a6)
  1982.  
  1983.  move.l doslib,a6
  1984.  move.l #200,d1
  1985.  jsr -198(a6) 
  1986.  
  1987.  move.w #$0020,$dff000+intena
  1988.  
  1989.  jsr mnu_GETBLITINT
  1990.  jsr mnu_setscreen
  1991.   
  1992. .nosave:
  1993.  
  1994.  move.l SAVEGAMEPOS,a1
  1995.  move.l SAVEGAMELEN,d0
  1996.  CALLEXEC FreeMem
  1997.  
  1998.  rts
  1999.  
  2000. MENUDATA:
  2001. ;0
  2002.  dc.l ONEPLAYERMENU_TXT
  2003.  dc.l ONEPLAYERMENU_OPTS
  2004. ;1
  2005.  dc.l INSTRUCTIONS_TXT
  2006.  dc.l INSTRUCTIONS_OPTS
  2007. ;2
  2008.  dc.l CREDITMENU_TXT
  2009.  dc.l CREDITMENU_OPTS
  2010. ;3
  2011.  dc.l ASKFORDISK_TXT
  2012.  dc.l ASKFORDISK_OPTS
  2013. ;4
  2014. ; dc.l ONEPLAYERMENU_TXT
  2015. ; dc.l ONEPLAYERMENU_OPTS
  2016.  dc.l MASTERPLAYERMENU_TXT
  2017.  dc.l MASTERPLAYERMENU_OPTS
  2018. ;5
  2019.  dc.l SLAVEPLAYERMENU_TXT
  2020.  dc.l SLAVEPLAYERMENU_OPTS
  2021. ;6
  2022.  dc.l CONTROL_TXT
  2023.  dc.l CONTROL_OPTS
  2024. ;7
  2025.  dc.l PROTMENU_TXT
  2026.  dc.l CONTROL_OPTS
  2027. ;8
  2028.  dc.l LOADMENU_TXT
  2029.  dc.l LOADMENU_OPTS
  2030. ;9
  2031.  dc.l SAVEMENU_TXT
  2032.  dc.l SAVEMENU_OPTS
  2033. ;10
  2034.  dc.l LEVELDISK_TXT
  2035.  dc.l ASKFORDISK_OPTS
  2036.  
  2037.  
  2038. EMPTYSLOTNAME:
  2039. ;      0123456789012345678901234567890123456789
  2040.  dc.b '               EMPTY SLOT               ' 
  2041.  
  2042. LOADMENU_TXT: 
  2043. ;      0123456789012345678901234567890123456789
  2044.  dc.b '                                        ' ;0
  2045.  dc.b '                                        ' ;1
  2046.  dc.b '                                        ' ;2
  2047.  dc.b '                                        ' ;3
  2048.  dc.b '         LOAD A SAVED POSITION:         ' ;4
  2049.  dc.b '                                        ' ;5
  2050.  dc.b '                                        ' ;6
  2051.  dc.b '                                        ' ;7
  2052.  dc.b '                                        ' ;8
  2053. LSLOTA:
  2054.  dc.b '                                        ' ;9
  2055.  dc.b '                                        ' ;0
  2056. LSLOTB:
  2057.  dc.b '                                        ' ;1
  2058.  dc.b '                                        ' ;2
  2059. LSLOTC:
  2060.  dc.b '                                        ' ;3
  2061.  dc.b '                                        ' ;4
  2062. LSLOTD:
  2063.  dc.b '                                        ' ;5
  2064.  dc.b '                                        ' ;6
  2065. LSLOTE:
  2066.  dc.b '                                        ' ;7
  2067.  dc.b '                                        ' ;8
  2068. LSLOTF:
  2069.  dc.b '                                        ' ;9
  2070.  dc.b '                                        ' ;0
  2071.  dc.b '               * CANCEL *               ' ;1
  2072.  dc.b '                                        ' ;2
  2073.  dc.b '                                        ' ;3
  2074.  dc.b '                                        ' ;4
  2075.  dc.b '                                        ' ;5
  2076.  dc.b '                                        ' ;6
  2077.  dc.b '                                        ' ;7
  2078.  dc.b '                                        ' ;8
  2079.  dc.b '                                        ' ;9
  2080.  dc.b '                                        ' ;0
  2081.  dc.b '                                        ' ;1
  2082.  
  2083. LOADMENU_OPTS:
  2084.  dc.w 0,9,40,1
  2085.  dc.w 0,11,40,1
  2086.  dc.w 0,13,40,1
  2087.  dc.w 0,15,40,1
  2088.  dc.w 0,17,40,1
  2089.  dc.w 0,19,40,1
  2090.  dc.w 14,21,12,1
  2091.  dc.w -1
  2092.  
  2093. LEVELDISK_TXT:
  2094. ;      0123456789012345678901234567890123456789
  2095.  dc.b '                                        ' ;0
  2096.  dc.b '                                        ' ;0
  2097.  dc.b '                                        ' ;0
  2098.  dc.b '                                        ' ;0
  2099.  dc.b '                                        ' ;0
  2100.  dc.b '                                        ' ;0
  2101.  dc.b '                                        ' ;0
  2102.  dc.b '                                        ' ;0
  2103.  dc.b '                                        ' ;0
  2104.  dc.b '                                        ' ;0
  2105.  dc.b '                                        ' ;0
  2106.  dc.b '  IF PLAYING FROM DISK, PLEASE INSERT   ' ;0
  2107.  dc.b '       LEVELS DISK IN DRIVE DF0:        ' ;0
  2108.  dc.b '                                        ' ;0
  2109.  dc.b '     PRESS MOUSE BUTTON WHEN READY..    ' ;0
  2110.  dc.b '                                        ' ;0
  2111.  dc.b '                                        ' ;0
  2112.  dc.b '                                        ' ;0
  2113.  dc.b '                                        ' ;0
  2114.  dc.b '                                        ' ;0
  2115.  dc.b '                                        ' ;0
  2116.  dc.b '                                        ' ;0
  2117.  dc.b '                                        ' ;0
  2118.  dc.b '                                        ' ;0
  2119.  dc.b '                                        ' ;0
  2120.  dc.b '                                        ' ;0
  2121.  dc.b '                                        ' ;0
  2122.  dc.b '                                        ' ;0
  2123.  dc.b '                                        ' ;0
  2124.  dc.b '                                        ' ;0
  2125.  dc.b '                                        ' ;0
  2126.  dc.b '                                        ' ;0
  2127.  
  2128.  
  2129. SAVEMENU_TXT: 
  2130. ;      0123456789012345678901234567890123456789
  2131.  dc.b '                                        ' ;0
  2132.  dc.b '                                        ' ;1
  2133.  dc.b '                                        ' ;2
  2134.  dc.b '                                        ' ;3
  2135.  dc.b '         SAVE CURRENT POSITION:         ' ;4
  2136.  dc.b '                                        ' ;5
  2137.  dc.b '                                        ' ;6
  2138.  dc.b '                                        ' ;7
  2139.  dc.b '                                        ' ;8
  2140. SSLOTA:
  2141.  dc.b '                                        ' ;9
  2142.  dc.b '                                        ' ;0
  2143. SSLOTB:
  2144.  dc.b '                                        ' ;1
  2145.  dc.b '                                        ' ;2
  2146. SSLOTC:
  2147.  dc.b '                                        ' ;3
  2148.  dc.b '                                        ' ;4
  2149. SSLOTD:
  2150.  dc.b '                                        ' ;5
  2151.  dc.b '                                        ' ;6
  2152. SSLOTE:
  2153.  dc.b '                                        ' ;7
  2154.  dc.b '                                        ' ;8
  2155. SSLOTF:
  2156.  dc.b '                                        ' ;9
  2157.  dc.b '                                        ' ;0
  2158.  dc.b '               * CANCEL *               ' ;1
  2159.  dc.b '                                        ' ;2
  2160.  dc.b '                                        ' ;3
  2161.  dc.b '                                        ' ;4
  2162.  dc.b '                                        ' ;5
  2163.  dc.b '                                        ' ;6
  2164.  dc.b '                                        ' ;7
  2165.  dc.b '                                        ' ;8
  2166.  dc.b '                                        ' ;9
  2167.  dc.b '                                        ' ;0
  2168.  dc.b '                                        ' ;1
  2169.  
  2170. SAVEMENU_OPTS:
  2171.  dc.w 0,9,40,1
  2172.  dc.w 0,11,40,1
  2173.  dc.w 0,13,40,1
  2174.  dc.w 0,15,40,1
  2175.  dc.w 0,17,40,1
  2176.  dc.w 0,19,40,1
  2177.  dc.w 14,21,12,1
  2178.  dc.w -1
  2179.  
  2180.  
  2181. ASKFORDISK_TXT:
  2182. ;      0123456789012345678901234567890123456789
  2183.  dc.b '                                        ' ;0
  2184.  dc.b '                                        ' ;1
  2185.  dc.b '                                        ' ;2
  2186.  dc.b '                                        ' ;3
  2187.  dc.b '                                        ' ;4
  2188.  dc.b '                                        ' ;5
  2189.  dc.b '                                        ' ;6
  2190.  dc.b '                                        ' ;7
  2191.  dc.b '                                        ' ;8
  2192.  dc.b '                                        ' ;9
  2193.  dc.b '                                        ' ;0
  2194.  dc.b '                                        ' ;1
  2195.  dc.b '                                        ' ;2
  2196.  dc.b '         PLEASE INSERT VOLUME:          ' ;3
  2197.  dc.b '                                        ' ;4
  2198. VOLLINE:
  2199.  dc.b '                                        ' ;9
  2200.  dc.b '                                        ' ;9
  2201.  dc.b '          PRESS MOUSE BUTTON            ' ;5
  2202.  dc.b '          WHEN DISK ACTIVITY            ' ;6
  2203.  dc.b '               FINISHES                 ' ;7
  2204.  dc.b '                                        ' ;8
  2205.  dc.b '                                        ' ;1
  2206.  dc.b '                                        ' ;2
  2207.  dc.b '                                        ' ;3
  2208.  dc.b '                                        ' ;4
  2209.  dc.b '                                        ' ;5
  2210.  dc.b '                                        ' ;6
  2211.  dc.b '                                        ' ;7
  2212.  dc.b '                                        ' ;8
  2213.  dc.b '                                        ' ;9
  2214.  dc.b '                                        ' ;0
  2215.  dc.b '                                        ' ;1
  2216.  
  2217. ASKFORDISK_OPTS:
  2218.  dc.w -1
  2219.  
  2220.  
  2221. ONEPLAYERMENU_TXT:
  2222. ;      0123456789012345678901234567890123456789
  2223.  dc.b '                                        ' ;0
  2224.  dc.b '                                        ' ;1
  2225.  dc.b '                                        ' ;2
  2226.  dc.b '                                        ' ;3
  2227.  dc.b '                                        ' ;4
  2228.  dc.b '                                        ' ;5
  2229.  dc.b '                                        ' ;6
  2230.  dc.b '                                        ' ;7
  2231.  dc.b '                                        ' ;8
  2232.  dc.b '                                        ' ;9
  2233.  dc.b '                                        ' ;0
  2234. CURRENTLEVELLINE:
  2235.  dc.b '         *** A.F DEMO LEVEL ***         ' ;1 
  2236.  dc.b '                                        ' ;2
  2237.  dc.b '                1 PLAYER                ' ;3
  2238.  dc.b '                                        ' ;4
  2239.  dc.b '               PLAY  GAME               ' ;5
  2240.  dc.b '                                        ' ;6
  2241.  dc.b '            CONTROL  OPTIONS            ' ;7
  2242.  dc.b '                                        ' ;8
  2243.  dc.b '              GAME CREDITS              ' ;9
  2244.  dc.b '                                        ' ;0
  2245.  dc.b '             LOAD  POSITION             ' ;1
  2246.  dc.b '                                        ' ;2
  2247. PASSWORDLINE:
  2248.  dc.b '             SAVE  POSITION             ' ;1
  2249.  dc.b '                                        ' ;4
  2250.  dc.b '                                        ' ;6
  2251.  dc.b '                                        ' ;6
  2252.  dc.b '                                        ' ;7
  2253.  dc.b '                                        ' ;8
  2254.  dc.b '                                        ' ;9
  2255.  dc.b '                                        ' ;0
  2256.  dc.b '                                        ' ;1
  2257.  
  2258. ONEPLAYERMENU_OPTS:
  2259.  dc.w 0,11,40,1
  2260.  dc.w 16,13,8,1
  2261.  dc.w 15,15,10,1
  2262.  dc.w 12,17,16,1
  2263.  dc.w 14,19,12,1
  2264.  dc.w 12,21,16,1
  2265.  dc.w 12,23,16,1
  2266.  dc.w -1
  2267.  
  2268.  
  2269. MASTERPLAYERMENU_TXT:
  2270. ;      0123456789012345678901234567890123456789
  2271.  dc.b '                                        ' ;0
  2272.  dc.b '                                        ' ;1
  2273.  dc.b '                                        ' ;2
  2274.  dc.b '                                        ' ;3
  2275.  dc.b '                                        ' ;4
  2276.  dc.b '                                        ' ;5
  2277.  dc.b '                                        ' ;6
  2278.  dc.b '                                        ' ;7
  2279.  dc.b '                                        ' ;8
  2280.  dc.b '                                        ' ;9
  2281.  dc.b '                                        ' ;0
  2282.  dc.b '                                        ' ;1
  2283.  dc.b '            2 PLAYER  MASTER            ' ;2
  2284.  dc.b '                                        ' ;3
  2285. CURRENTLEVELLINEM:
  2286.  dc.b '           LEVEL 1 : THE GATE           ' ;4 
  2287.  dc.b '                                        ' ;5
  2288.  dc.b '               PLAY  GAME               ' ;6
  2289.  dc.b '                                        ' ;7
  2290.  dc.b '            CONTROL  OPTIONS            ' ;8
  2291.  dc.b '                                        ' ;9
  2292.  dc.b '                                        ' ;0
  2293.  dc.b '                                        ' ;1
  2294.  dc.b '                                        ' ;2
  2295.  dc.b '                                        ' ;3
  2296.  dc.b '                                        ' ;4
  2297.  dc.b '                                        ' ;5
  2298.  dc.b '                                        ' ;6
  2299.  dc.b '                                        ' ;7
  2300.  dc.b '                                        ' ;8
  2301.  dc.b '                                        ' ;9
  2302.  dc.b '                                        ' ;0
  2303.  dc.b '                                        ' ;1
  2304.  
  2305. MASTERPLAYERMENU_OPTS:
  2306.  dc.w 12,12,16,1
  2307.  dc.w 6,14,28,1
  2308.  dc.w 15,16,10,1
  2309.  dc.w 12,18,16,1
  2310.  dc.w -1
  2311.  
  2312. SLAVEPLAYERMENU_TXT:
  2313. ;      0123456789012345678901234567890123456789
  2314.  dc.b '                                        ' ;0
  2315.  dc.b '                                        ' ;1
  2316.  dc.b '                                        ' ;2
  2317.  dc.b '                                        ' ;3
  2318.  dc.b '                                        ' ;4
  2319.  dc.b '                                        ' ;5
  2320.  dc.b '                                        ' ;6
  2321.  dc.b '                                        ' ;7
  2322.  dc.b '                                        ' ;8
  2323.  dc.b '                                        ' ;9
  2324.  dc.b '                                        ' ;9
  2325.  dc.b '                                        ' ;1
  2326.  dc.b '             2 PLAYER SLAVE             ' ;4
  2327.  dc.b '                                        ' ;3
  2328.  dc.b '               PLAY  GAME               ' ;2
  2329.  dc.b '                                        ' ;5
  2330.  dc.b '            CONTROL  OPTIONS            ' ;0
  2331.  dc.b '                                        ' ;1
  2332.  dc.b '                                        ' ;3
  2333.  dc.b '                                        ' ;7
  2334.  dc.b '                                        ' ;7
  2335.  dc.b '                                        ' ;3
  2336.  dc.b '                                        ' ;3
  2337.  dc.b '                                        ' ;3
  2338.  dc.b '                                        ' ;4
  2339.  dc.b '                                        ' ;5
  2340.  dc.b '                                        ' ;6
  2341.  dc.b '                                        ' ;7
  2342.  dc.b '                                        ' ;9
  2343.  dc.b '                                        ' ;9
  2344.  dc.b '                                        ' ;9
  2345.  dc.b '                                        ' ;9
  2346.  
  2347.  
  2348. PROTMENU_TXT:
  2349. ;      0123456789012345678901234567890123456789
  2350.  dc.b '                                        ' ;0
  2351.  dc.b '                                        ' ;1
  2352.  dc.b '                                        ' ;2
  2353.  dc.b '                                        ' ;3
  2354.  dc.b '                                        ' ;4
  2355.  dc.b '                                        ' ;5
  2356.  dc.b '                                        ' ;6
  2357.  dc.b '                                        ' ;7
  2358.  dc.b '                                        ' ;8
  2359.  dc.b '                                        ' ;9
  2360.  dc.b '                                        ' ;0
  2361.  dc.b '                                        ' ;1
  2362.  dc.b ' TYPE IN THREE DIGIT CODE FROM MANUAL : ' ;2
  2363.  dc.b '                                        ' ;3
  2364. PROTLINE:
  2365.  dc.b '        TABLE 00 ROW 00 COLUMN 00       ' ;4
  2366.  dc.b '                                        ' ;5
  2367.  dc.b '                                        ' ;6
  2368.  dc.b '                                        ' ;7
  2369.  dc.b '                                        ' ;8
  2370.  dc.b '                                        ' ;9
  2371.  dc.b '                                        ' ;0
  2372.  dc.b '                                        ' ;1
  2373.  dc.b '                                        ' ;2
  2374.  dc.b '                                        ' ;3
  2375.  dc.b '                                        ' ;4
  2376.  dc.b '                                        ' ;5
  2377.  dc.b '                                        ' ;6
  2378.  dc.b '                                        ' ;7
  2379.  dc.b '                                        ' ;9
  2380.  dc.b '                                        ' ;0
  2381.  dc.b '                                        ' ;1
  2382.  
  2383.  
  2384.  
  2385. SLAVEPLAYERMENU_OPTS:
  2386.  dc.w 12,12,16,1
  2387.  dc.w 15,14,10,1
  2388.  dc.w 12,16,16,1
  2389.  dc.w -1
  2390.  
  2391.  
  2392. PLAYER_OPTS:
  2393. ;      0123456789012345678901234567890123456789
  2394.  dc.b '                 1 PLAYER               '
  2395.  dc.b '             2  PLAYER MASTER           '
  2396.  dc.b '              2 PLAYER SLAVE            '
  2397.  
  2398. LEVEL_OPTS:
  2399. ;      0123456789012345678901234567890123456789
  2400.  dc.b  '       CU AMIGA *EXCLUSIVE* DEMO        '
  2401.  dc.b '      LEVEL  2 :       STORAGE BAY      '
  2402.  dc.b '      LEVEL  3 :     SEWER NETWORK      '
  2403.  dc.b '      LEVEL  4 :     THE COURTYARD      '
  2404.  dc.b '      LEVEL  5 :      SYSTEM PURGE      '
  2405.  dc.b '      LEVEL  6 :         THE MINES      '
  2406.  dc.b '      LEVEL  7 :       THE FURNACE      '
  2407.  dc.b '      LEVEL  8 :  TEST ARENA GAMMA      '
  2408.  dc.b '      LEVEL  9 :      SURFACE ZONE      '
  2409.  dc.b '      LEVEL 10 :     TRAINING AREA      '
  2410.  dc.b '      LEVEL 11 :       ADMIN BLOCK      '
  2411.  dc.b '      LEVEL 12 :           THE PIT      '
  2412.  dc.b '      LEVEL 13 :            STRATA      '
  2413.  dc.b '      LEVEL 14 :      REACTOR CORE      '
  2414.  dc.b '      LEVEL 15 :     COOLING TOWER      '
  2415.  dc.b '      LEVEL 16 :    COMMAND CENTRE      '
  2416.  
  2417. CONTROL_TXT:
  2418. ;      0123456789012345678901234567890123456789
  2419.  dc.b '                                        ' ;0
  2420.  dc.b '                                        ' ;1
  2421.  dc.b '            DEFINE  CONTROLS            ' ;2
  2422.  dc.b '                                        ' ;3
  2423. ;KEY_LINES:
  2424.  dc.b '     TURN LEFT                  LCK     ' ;4
  2425.  dc.b '     TURN RIGHT                 RCK     ' ;5
  2426.  dc.b '     FORWARDS                   UCK     ' ;6
  2427.  dc.b '     BACKWARDS                  DCK     ' ;7
  2428.  dc.b '     FIRE                       RAL     ' ;8
  2429.  dc.b '     OPERATE DOOR/LIFT/SWITCH   SPC     ' ;9
  2430.  dc.b '     RUN                        RSH     ' ;0
  2431.  dc.b '     FORCE SIDESTEP             RAM     ' ;1
  2432.  dc.b '     SIDESTEP LEFT               .      ' ;2
  2433.  dc.b '     SIDESTEP RIGHT              /      ' ;3
  2434.  dc.b '     DUCK                        D      ' ;4
  2435.  dc.b '     LOOK BEHIND                 L      ' ;5
  2436.  dc.b '     JUMP                       KP0     ' ;6
  2437.  dc.b '     LOOK UP                     ]      ' ;7
  2438.  dc.b '     LOOK DOWN                   #      ' ;8
  2439.  dc.b '     CENTRE VIEW                 ;      ' ;9
  2440.  dc.b '     NEXT WEAPON                RET     ' ;9
  2441.  dc.b '                                        ' ;9
  2442.  dc.b '             OTHER CONTROLS             ' ;0
  2443.  dc.b '                                        ' ;1
  2444.  dc.b '1-0   Select Weapon P              Pause' ;2
  2445.  dc.b 'F1   Zoom in on map F3 4/8 Channel Sound' ;3
  2446.  dc.b 'F2  Zoom out on map F4 Mono/Stereo Sound' ;4
  2447.  dc.b 'F5 Recall Message   F6    Render Quality'  
  2448.  dc.b '    Keypad 1-9 scroll map, 5 centres    ' ;5
  2449.  dc.b '                                        ' ;7
  2450.  dc.b '               MAIN  MENU               ' ;8
  2451.  dc.b '                                        ' ;1
  2452.  
  2453. CONTROL_OPTS:
  2454.  dc.w 5,4,30,1
  2455.  dc.w 5,5,30,1
  2456.  dc.w 5,6,30,1
  2457.  dc.w 5,7,30,1
  2458.  dc.w 5,8,30,1
  2459.  dc.w 5,9,30,1
  2460.  dc.w 5,10,30,1
  2461.  dc.w 5,11,30,1
  2462.  dc.w 5,12,30,1
  2463.  dc.w 5,13,30,1
  2464.  dc.w 5,14,30,1
  2465.  dc.w 5,15,30,1
  2466.  dc.w 5,16,30,1
  2467.  dc.w 5,17,30,1
  2468.  dc.w 5,18,30,1
  2469.  dc.w 5,19,30,1
  2470.  dc.w 5,20,30,1
  2471.  dc.w 15,30,10,1
  2472.  dc.w -1
  2473.  
  2474. PLOPT: dc.w 0
  2475.  
  2476. INSTRUCTIONS_TXT:
  2477. ;      0123456789012345678901234567890123456789
  2478.  dc.b 'Main controls:                          ' ;1
  2479.  dc.b '                                        ' ;2
  2480.  dc.b 'Curs Keys = Forward / Backward          ' ;3
  2481.  dc.b '            Turn left / right           ' ;4
  2482.  dc.b '          Right Alt = Fire              ' ;5
  2483.  dc.b '        Right Shift = Run               ' ;6
  2484.  dc.b '                  > = Slide Left        ' ;7
  2485.  dc.b '                  ? = Slide Right       ' ;8
  2486.  dc.b '              SPACE = Operate Door/Lift ' ;9
  2487.  dc.b '                  D = Duck              ' ;0
  2488.  dc.b '                  J = Joystick Control  ' ;1
  2489.  dc.b '                  K = Keyboard Control  ' ;2
  2490.  dc.b '                                        ' ;3
  2491.  dc.b '              1,2,3 = Select weapon     ' ;4
  2492.  dc.b '              ENTER = Toggle screen size' ;5
  2493.  dc.b '                ESC = Quit              ' ;6
  2494.  dc.b '                                        ' ;7
  2495.  dc.b '                                        ' ;8
  2496.  dc.b 'The one player game has no objective and' ;9
  2497.  dc.b 'the only way to finish is to die or quit' ;0
  2498.  dc.b '                                        ' ;1
  2499.  dc.b 'The two-player game is supposed to be a ' ;2
  2500.  dc.b 'fight to the death but will probably be ' ;3
  2501.  dc.b 'a fight-till-we-find-the-rocket-launcher' ;4
  2502.  dc.b 'then-blow-ourselves-up type game.       ' ;5
  2503.  dc.b '                                        ' ;6
  2504.  dc.b 'LOOK OUT FOR TELEPORTERS: They usually  ' ;7
  2505.  dc.b 'have glowing red walls and overhead     ' ;8
  2506.  dc.b 'lights. Useful for getting behind your  ' ;9
  2507.  dc.b ' opponent!                              ' ;0
  2508.  dc.b '  Just a taster of what is to come....  ' ;1
  2509.  dc.b '                                        ' ;0
  2510.  
  2511. INSTRUCTIONS_OPTS:
  2512.  dc.w 0,0,0,1
  2513.  dc.w -1
  2514.  
  2515. CREDITMENU_TXT:
  2516.  
  2517. ;      0123456789012345678901234567890123456789
  2518.  dc.b '    Programming, Game Code, Graphics    ' ;0
  2519.  dc.b '         Game Design and Manual         ' ;1
  2520.  dc.b '            Andrew Clitheroe            ' ;2
  2521.  dc.b '                                        ' ;3
  2522.  dc.b '       Alien and Scenery Graphics       ' ;4
  2523.  dc.b '             Michael  Green             ' ;5
  2524.  dc.b '                                        ' ;6
  2525.  dc.b '           3D Object Designer           ' ;7
  2526.  dc.b '            Charles Blessing            ' ;8
  2527.  dc.b '                                        ' ;9
  2528.  dc.b '              Level Design              ' ;0
  2529.  dc.b 'Jackie Lang   Michael Green  Ben Chanter' ;1
  2530.  dc.b '                                        ' ;3
  2531.  dc.b '                                        ' ;3
  2532.  dc.b '           Creative  Director           ' ;4
  2533.  dc.b '              Martyn Brown              ' ;5
  2534.  dc.b '                                        ' ;6
  2535.  dc.b '       Project Manager and Manual       ' ;7
  2536.  dc.b '          Phil Quirke-Webster           ' ;8
  2537.  dc.b '                                        ' ;9
  2538.  dc.b '                 Music                  ' ;0
  2539.  dc.b '           Ben "666" Chanter            ' ;1
  2540.  dc.b '                                        ' ;2
  2541.  dc.b '      Cover Illustration and Logo       ' ;3
  2542.  dc.b '             Kevin Jenkins              ' ;4
  2543.  dc.b '                                        ' ;5
  2544.  dc.b '      Packaging and Manual Design       ' ;6
  2545.  dc.b '               Paul Sharp               ' ;7
  2546.  dc.b '                                        ' ;8
  2547.  dc.b '             QA and Playtest            ' ;9
  2548.  dc.b '     Too numerous to mention here!      ' ;0
  2549.  dc.b '                                        ' ;1
  2550.  
  2551.  dc.b '    Serial Link and 3D Object Editor:   ' ;4
  2552.  dc.b '                   by                   ' ;5
  2553.  dc.b '            Charles Blessing            ' ;6
  2554.  dc.b '                                        ' ;7
  2555.  dc.b '                Graphics:               ' ;8
  2556.  dc.b '                   by                   ' ;9
  2557.  dc.b '              Mike  Oakley              ' ;0
  2558.  dc.b '                                        ' ;1
  2559.  dc.b '             Title  Picture             ' ;2
  2560.  dc.b '                   by                   ' ;3
  2561.  dc.b '               Mike Green               ' ;4
  2562.  dc.b '                                        ' ;5
  2563.  dc.b ' Inspiration, incentive, moral support, ' ;6
  2564.  dc.b '     level design and plenty of tea     ' ;7
  2565.  dc.b '         generously supplied by         ' ;8
  2566.  dc.b '                                        ' ;9
  2567.  dc.b '              Jackie  Lang              ' ;0
  2568.  dc.b '                                        ' ;1
  2569.  dc.b '    Music for the last demo composed    ' ;2
  2570.  dc.b '       by the inexpressibly evil:       ' ;3
  2571.  dc.b '                                        ' ;8
  2572.  dc.b '            *BAD* BEN CHANTER           ' ;9
  2573.  dc.b '                                        ' ;0
  2574.  dc.b '    Sadly no room for music this time   ' ;1
  2575.  dc.b '                                        ' ;7
  2576.  dc.b '                                        ' ;7
  2577.  
  2578. CREDITMENU_OPTS:
  2579.  dc.w 0,0,1,1
  2580.  dc.w -1
  2581.  
  2582.  
  2583. ;      0123456789012345678901234567890123456789
  2584.  dc.b '                                        ' ;0
  2585.  dc.b '                                        ' ;1
  2586.  dc.b '                                        ' ;2
  2587.  dc.b '                                        ' ;3
  2588.  dc.b '                                        ' ;4
  2589.  dc.b '                                        ' ;5
  2590.  dc.b '                                        ' ;6
  2591.  dc.b '                                        ' ;7
  2592.  dc.b '                                        ' ;8
  2593.  dc.b '                                        ' ;9
  2594.  dc.b '                                        ' ;0
  2595.  dc.b '                                        ' ;1
  2596.  dc.b '                                        ' ;2
  2597.  dc.b '                                        ' ;3
  2598.  dc.b '                                        ' ;4
  2599.  dc.b '                                        ' ;5
  2600.  dc.b '                                        ' ;6
  2601.  dc.b '                                        ' ;7
  2602.  dc.b '                                        ' ;8
  2603.  dc.b '                                        ' ;9
  2604.  dc.b '                                        ' ;0
  2605.  dc.b '                                        ' ;1
  2606.  dc.b '                                        ' ;2
  2607.  dc.b '                                        ' ;3
  2608.  dc.b '                                        ' ;4
  2609.  dc.b '                                        ' ;5
  2610.  dc.b '                                        ' ;6
  2611.  dc.b '                                        ' ;7
  2612.  dc.b '                                        ' ;8
  2613.  dc.b '                                        ' ;9
  2614.  dc.b '                                        ' ;0
  2615.  dc.b '                                        ' ;1
  2616.  
  2617.  
  2618. ********************************************************
  2619.  
  2620. PUTIN32:
  2621.  
  2622.  moveq #0,d2
  2623.  moveq #0,d3
  2624.  moveq #0,d4
  2625.  moveq #0,d5
  2626.  moveq #0,d6
  2627.  moveq #0,d7
  2628.  
  2629.  move.w #31,d2
  2630. p32loop:
  2631.  moveq #0,d5
  2632.  move.l (a0)+,d3
  2633.  move.w d3,d4
  2634.  swap d3
  2635.  move.b d4,d5
  2636.  lsr.w #8,d4
  2637.  
  2638.  muls d0,d3
  2639.  muls d0,d4
  2640.  muls d0,d5
  2641.  lsr.l #8,d3
  2642.  lsr.l #8,d4
  2643.  lsr.l #8,d5
  2644.  move.w d3,d6
  2645.  swap d3
  2646.  move.w d6,d3
  2647.  move.w d4,d6
  2648.  swap d4
  2649.  move.w d6,d4
  2650.  move.w d5,d6
  2651.  swap d5
  2652.  move.w d6,d5
  2653.  and.w #%11110000,d3
  2654.  and.w #%11110000,d4
  2655.  and.w #%11110000,d5
  2656.  lsl.w #4,d3
  2657.  add.w d4,d3
  2658.  lsr.w #4,d5
  2659.  add.w d5,d3
  2660.  move.w d3,2(a1)
  2661.  swap d3
  2662.  swap d4
  2663.  swap d5
  2664.  and.w #%1111,d3
  2665.  and.w #%1111,d4
  2666.  and.w #%1111,d5
  2667.  lsl.w #8,d3
  2668.  lsl.w #4,d4
  2669.  add.w d4,d3
  2670.  add.w d5,d3
  2671.  move.w d3,2+(132*4)(a1)
  2672.  addq #4,a1
  2673.  dbra d2,p32loop
  2674.  
  2675.  
  2676.  rts
  2677.  
  2678. **************************************
  2679.  
  2680. FADEAMOUNT: dc.w 0
  2681. FADEVAL: dc.w 0
  2682.  
  2683. FADEUPTITLE:
  2684.  
  2685.  moveq #0,d0
  2686.  moveq #0,d1
  2687.  move.w FADEVAL,d0
  2688.  move.w FADEAMOUNT,d1
  2689. fadeuploop:
  2690.  
  2691.  move.l #TITLEPAL,a0
  2692.  move.l #TITLEPALCOP,a1
  2693.  
  2694. wvb:
  2695.  btst #5,$dff000+intreqrl
  2696.  beq.s wvb
  2697.  move.w #$20,$dff000+intreq 
  2698.  
  2699.  bsr PUTIN32
  2700.  add.w #4,a1
  2701.  bsr PUTIN32
  2702.  add.w #4,a1
  2703.  bsr PUTIN32
  2704.  add.w #4,a1
  2705.  bsr PUTIN32
  2706.  
  2707.  addq.w #8,d0
  2708.  dbra d1,fadeuploop
  2709.  
  2710.  subq #8,d0
  2711.  move.w d0,FADEVAL
  2712.  
  2713.  rts
  2714.  
  2715. CLEARTITLEPAL:
  2716.  PRSDP
  2717.  move.l #TITLEPALCOP,a0
  2718.  move.w #7,d1
  2719. clrpal:
  2720.  move.w #31,d0
  2721. clr32
  2722.  move.w #0,2(a0)
  2723.  addq #4,a0
  2724.  dbra d0,clr32
  2725.  addq #4,a0
  2726.  dbra d1,clrpal
  2727.  PRSDQ
  2728.  rts
  2729.  
  2730. FADEDOWNTITLE:
  2731.  
  2732.  move.w FADEVAL,d0
  2733.  move.w FADEAMOUNT,d1
  2734. fadedownloop:
  2735.  
  2736.  move.l #TITLEPAL,a0
  2737.  move.l #TITLEPALCOP,a1
  2738.  
  2739. .wvb:
  2740.  btst #5,$dff000+intreqrl
  2741.  beq.s .wvb
  2742.  move.w #$20,$dff000+intreq 
  2743.  
  2744.  bsr PUTIN32
  2745.  add.w #4,a1
  2746.  bsr PUTIN32
  2747.  add.w #4,a1
  2748.  bsr PUTIN32
  2749.  add.w #4,a1
  2750.  bsr PUTIN32
  2751.  
  2752.  subq.w #8,d0
  2753.  dbra d1,fadedownloop
  2754.  
  2755.  addq #8,d0
  2756.  move.w d0,FADEVAL
  2757.  
  2758.  rts
  2759.  
  2760. LOADTITLESCRN2:
  2761.  
  2762.  
  2763.  move.l #MEMF_CLEAR,d1
  2764.  move.l #52400,d0
  2765.  move.l 4.w,a6
  2766.  jsr    _LVOAllocMem(a6)
  2767.  tst.l  d0
  2768.  beq    .nomem
  2769.  
  2770.  move.l d0,tempptr
  2771.  
  2772.  move.l TITLESCRNPTR,d1
  2773.  move.l #1005,d2
  2774.  move.l doslib,a6
  2775.  jsr -30(a6)
  2776.  move.l d0,handle
  2777.  move.l d0,d1
  2778.  move.l doslib,a6
  2779. ; move.l TITLESCRNADDR,d2
  2780.  move.l tempptr,d2
  2781.  move.l #10240*7,d3
  2782.  jsr -42(a6)
  2783.  move.l doslib,a6
  2784.  move.l handle,d1
  2785.  jsr -36(a6)
  2786.  
  2787.     
  2788.  move.l TITLESCRNADDR,a0
  2789.  move.l tempptr,d0
  2790.  
  2791.  moveq #0,d1
  2792.  lea WorkSpace,a1
  2793.  lea $0,a2
  2794.  jsr unLHA
  2795.  
  2796.  move.l tempptr,a1
  2797.  move.l #52400,d0
  2798.  CALLEXEC FreeMem
  2799.   
  2800. .nomem
  2801.  
  2802.  rts
  2803.  
  2804. tempptr dc.l 0
  2805.  
  2806.  
  2807. GETTITLEMEM:
  2808.  move.l #2,d1
  2809.  move.l #10240*7,d0
  2810.  move.l 4.w,a6
  2811.  jsr -198(a6)
  2812.  move.l d0,TITLESCRNADDR
  2813.  
  2814.  move.l #$dff000-$2cdfe4,a4
  2815.  
  2816.  move.l #2,d1
  2817.  move.l #258*16*5,d0
  2818.  move.l 4.w,a6
  2819.  jsr -198(a6)
  2820.  move.l d0,OPTSPRADDR
  2821.  
  2822.  rts
  2823.  
  2824. ProtChkJLev1:
  2825.  
  2826. PROTSETUP:
  2827.  incbin "ab3:includes/protsetupenc"
  2828.  
  2829. ; Need to: Decode protection calling
  2830. ; routine
  2831. ; use null values to call it and erase
  2832. ; it from memory
  2833. ; erase this routine and return.
  2834.  
  2835. ; include "ab3:source/protsetup"
  2836.  
  2837.  
  2838. RELEASETITLEMEM:
  2839.  move.l TITLESCRNADDR,d1
  2840.  move.l d1,a1
  2841.  move.l #10240*7,d0
  2842.  move.l 4.w,a6
  2843.  jsr -210(a6)
  2844.  
  2845.  move.l OPTSPRADDR,d1
  2846.  move.l d1,a1
  2847.  move.l #258*80,d0
  2848.  move.l 4.w,a6
  2849.  jsr -210(a6)
  2850.  rts
  2851.  
  2852.  
  2853. PROTCALLENC:
  2854. ; incbin "ab3:source/protcallenc.bin
  2855.  
  2856. ; one pass, all instructions executed.
  2857. ; must call protection routine,store
  2858. ; value somewhere, call ask routine,
  2859. ; compare returned value, if correct
  2860. ; set up all values, then return.
  2861.  
  2862. ; include "ab3:source_4000/protcallenc"
  2863.  
  2864. ENDPROT:
  2865.  
  2866. LOADTITLESCRN:
  2867.  
  2868.  move.l #TITLESCRNNAME,d1
  2869.  move.l #1005,d2
  2870.  move.l doslib,a6
  2871.  jsr -30(a6)
  2872.  move.l d0,handle
  2873.  move.l d0,d1
  2874.  move.l doslib,a6
  2875.  move.l TITLESCRNADDR,d2
  2876.  move.l #10240*7,d3
  2877.  jsr -42(a6)
  2878.  move.l doslib,a6
  2879.  move.l handle,d1
  2880.  jsr -36(a6)
  2881.  
  2882.  rts
  2883.  
  2884. RVAL2: dc.w 0
  2885.  
  2886. SETUPTITLESCRN:
  2887.  
  2888.  PRSDR
  2889.  move.l #OPTCOP,a0
  2890.  move.l #rain,a1
  2891.  move.w #255,d0
  2892. putinrain:
  2893.  move.w (a1)+,d1
  2894.  move.w d1,6(a0)
  2895.  move.w d1,6+4(a0)
  2896.  move.w d1,6+8(a0)
  2897.  move.w d1,6+12(a0)
  2898.  add.w #4*14,a0
  2899.  
  2900.  dbra d0,putinrain
  2901.  
  2902. ; Put addr into copper.
  2903.  move.l OPTSPRADDR,d0
  2904.  move.w d0,tsp0l
  2905.  swap d0
  2906.  move.w d0,tsp0h
  2907.  swap d0
  2908.  add.l #258*16,d0
  2909.  move.w d0,tsp1l
  2910.  swap d0
  2911.  move.w d0,tsp1h
  2912.  swap d0
  2913.  add.l #258*16,d0
  2914.  move.w d0,tsp2l
  2915.  swap d0
  2916.  move.w d0,tsp2h
  2917.  swap d0
  2918.  add.l #258*16,d0
  2919.  move.w d0,tsp3l
  2920.  swap d0
  2921.  move.w d0,tsp3h
  2922.  swap d0
  2923.  add.l #258*16,d0
  2924.  move.w d0,tsp4l
  2925.  swap d0
  2926.  move.w d0,tsp4h
  2927.  
  2928.  move.l #nullspr,d0
  2929.  move.w d0,tsp5l
  2930.  move.w d0,tsp6l
  2931.  move.w d0,tsp7l
  2932.  swap d0
  2933.  move.w d0,tsp5h
  2934.  move.w d0,tsp6h
  2935.  move.w d0,tsp7h 
  2936.  
  2937.  move.l TITLESCRNADDR,d0
  2938.  move.w d0,ts1l
  2939.  swap d0
  2940.  move.w d0,ts1h
  2941.  swap d0
  2942.  add.l #10240,d0
  2943.  move.w d0,ts2l
  2944.  swap d0
  2945.  move.w d0,ts2h
  2946.  swap d0
  2947.  add.l #10240,d0
  2948.  move.w d0,ts3l
  2949.  swap d0
  2950.  move.w d0,ts3h
  2951.  swap d0
  2952.  add.l #10240,d0
  2953.  move.w d0,ts4l
  2954.  swap d0
  2955.  move.w d0,ts4h
  2956.  swap d0
  2957.  add.l #10240,d0
  2958.  move.w d0,ts5l
  2959.  swap d0
  2960.  move.w d0,ts5h
  2961.  swap d0
  2962.  add.l #10240,d0
  2963.  move.w d0,ts6l
  2964.  swap d0
  2965.  move.w d0,ts6h
  2966.  swap d0
  2967.  add.l #10240,d0
  2968.  move.w d0,ts7l
  2969.  swap d0
  2970.  move.w d0,ts7h
  2971.  rts 
  2972.  
  2973. RVAL1: dc.w 0
  2974.  
  2975. DummyAdds:
  2976.  dc.l dummy-78935450
  2977.  dc.l dummy-78935450
  2978.  dc.l dummy-78935450
  2979.  dc.l dummy-78935450
  2980.  dc.l dummy-78935450
  2981.  dc.l dummy-78935450
  2982.  dc.l dummy-78935450
  2983.  dc.l dummy-78935450
  2984.  dc.l dummy-78935450
  2985.  dc.l dummy-78935450
  2986.  
  2987. LEVELTEXTNAME: dc.b 'TKG1:includes/TEXT_FILE'
  2988.  
  2989.  even
  2990.  
  2991. LEVELTEXT:
  2992.  dc.l 0
  2993.  
  2994. dummycall
  2995.  dc.w $4e75-123
  2996.  
  2997. protspace: 
  2998.  ds.l 200
  2999.  
  3000. ; include "ab3:source_4000/LEVEL_BLURB"
  3001.  
  3002. font:
  3003.  incbin "Starquake.font.bin"
  3004.  
  3005. rain: incbin "optcop"
  3006.  
  3007.     include "ab3:demo/menu/menunb.s"